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MUNDOATARI pone un PC 
al alcance de sus dedos: 

CARACTERISTICAS: 

• Procesador 640K en memoria. 

• Turbo para velocidad de ejecución 
de 4,7 y 12 MHZ. 

• Fuente de poder 150 Watts. 

• Tarjeta múltiple de conección a 
unidad de disco. 

• Tarjeta gráfica Multi Display. 

• Diskettera de 51/4 y 360 kilos. 

• Teclado español de 101 teclas. 

• Monitor Ambar Goldstar. 


PC-XT 




Por US$ 1.050 (IVA incluido) 

y si su solicitud de crédito 
es aceptada, el PC-XT es suyo. 
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Los Leones 308 - Santiago 
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CORREO 


Correo 


CONSULTAS 


Señor Director: 

Soy suscriptor de su revista y tam¬ 
bién usuario de la impresora 1029. 

Como quiero aprovechar al má¬ 
ximo este periférico suqiero la crea¬ 
ción de una columna de continuidad, 
o programas/trucos que me ayuden 
al respecto. 

• Esta carta está escrita con el ATA- 
Rl Writer, el que también me gustaría 
utilizar en toda su potencialidad. 

. ¿Podrían ustedes publicar una lis¬ 
ta y descripción de utilitarios en case- 
te para esta impresora, si es que los 
hay? 

Se despide de ustedes felicitándo¬ 
los por su gran labor en beneficio de 
los atarianos. 

Octavio Cárcamo I. 

Casilla 1185, Concepción 

□ A partir del número 13 de MUN¬ 
DO ATAR I se han publicado ruti¬ 
nas y manejo del ATAR I Writer. 

Se recomienda en todo caso cam¬ 
biar su impresora por una Panasonic 
y el ATARI Writer por el First X- 
Lent, que se ha publicado in exten¬ 
so en los últimos números de MUN¬ 
DO ATARI. 

M.A. 

Señor Director: 

El año pasado recibí un sobre del 
ATARI Club de Chile invitándome a 
integrarme como socio previo pago 
de $ 1.500. 

Dichos trámites los realicé con 
fecha 23 de diciembre de 1988, pero 
luego de casi 2 meses no obtuve res¬ 
puesta alguna. Posteriormente he 
enviado 2 télex pidiendo explicacio¬ 
nes y finalmente una carta con fecha 
10 de marzo de 1989. Hasta ahora 
sigo sin tener respuesta. 

Usted comprenderá que no siento 
tanto el haber perdido el dinero en¬ 
viado, sino el hecho de haber sido 
engañado. 


Recurro a usted, para que por su 
intermedio me informe lo sucedido 
con el ATARI Club de Chile, aunque 
no estoy seguro si dicho Club depen¬ 
de de la revista MUNDOATARI. 

Agradezco en todo caso su ayuda. 

Con fecha 5 de abril adquirí 3 ca¬ 
setes por medio de la solicitud de 
pedido. Uno de dichos programas no 
ingresa a la memoria del computador, 
probablemente por encontrarse de¬ 
fectuoso. 

Adjunto también un programa 
que he logrado crear con lo que he 
podido aprender en los últimos días. 
El consiste en ingresar una nómina 
de nombres que pueden ser ordena¬ 
dos alfabéticamente y grabados o 
cargados en un casete. Este es un 
aporte para la revista MUNDOATARI. 

Serafín Sirguiado H. 

Población Au-Cau 
Psje. Los Pinos No. 6 
San José de la Mar iquina 

□ El ATARI Club de Chile depen¬ 
de de COELSA S.A. y nuestra 
revista no tiene ningún vínculo con 
él. 

El programa defectuoso lo cam¬ 
biaremos a vuelta de correo. 

Por su interesante colaboración 
recibirá un premio de $ 1.500 en 
software del Catálogo a elección. 

M.A. 


Señor Director: 

Soy un lector de su revista en el 
extranjero y quiero saber si ustedes 
mandan revistas mediante un giro 
postal u otra opción. 

¿Pueden adjuntar un Catálogo de 
software para ATARI 800 XL?. 

En mi país el software existente 
es muy escaso y más aún para la 
casetera. 

Carlos Vigliola C. 

Calle 8 y Mario Ferreira 
Parque del Plata (Depto. Canelones) 
Uruguay 


□ Estamos enviándole de regalo una 
revista MUNDOATARI No. 19, 

que contiene Catálogo con software 
disponible. 

La suscripción desde el extranjero 
puede ser convenida en dólar cheque. 

M.A. 

COLABORACIONES 

Señor Director: 

Adjunto programa original llama¬ 
do "Graficador XL/1", escrito en len¬ 
guaje Turbo BASIC. 

El programa sirve de ayuda a los 
escolares de varios niveles principal¬ 
mente para graficar funciones. 

Envío asimismo un listado y co¬ 
mentario de líneas. 

Mario Villarroel Game 
San Francisco 1973, Temuco 
Teléfono 235396 

□ Agradecemos su colaboración, la 
cual publicamos en este número 

en la sección educacional. 

Recibirá un premio especial de 
$ 5.000 en software a elección. 

Señor Director: 

Los felicito por su revista, la cual 
me sirve para aprender nuevas formas 
de programación. 

Deseo plantear 2 consultas: 

1. ¿Qué localización permite contro¬ 
lar la pistola de luz? 

2. ¿Cómo se mueve verticalmente el 
Player/Missil? 

Adjunto 2 colaboraciones origi¬ 
nales en la forma de juegos y un pro¬ 
grama demostrativo llamado Cañe¬ 
rías. 

Eduardo Fróhlich L. 
Casilla 126, Osorno 

□ El movimiento del Player/Missil 
se logra con rutinas en Assembler. 

En la columna del tema veremos en 
detalle el problema. Tenga un poco 
de paciencia. 

Sus colaboraciones son muy in¬ 
geniosas, porque explotan técnicas 
sencillas para lograr la animación. 
Próximamente publicaremos alguna 
de las rutinas enviadas. Felicitaciones. 

Señor Director: 

He traído personalmente un pro¬ 
grama buenísimo que muestra la pre¬ 
sentación y logo MUNDOATARI. 
Se carga con Turbo BASIC. 

Juan Miranda 
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CORREO 


Señor Director. 

Los felicito por su excelente re¬ 
vista que ha llegado a ocupar un lu¬ 
gar destacado en la vida de los ata- 
rianos. 

Yo envié un programa-colabora¬ 
ción que apareció en el número de 
marzo. Aprovecho de pedir el juego 
"Spitfire 40" como premio asignado. 

Adjunto envío un nuevo progra¬ 
ma llamado "Predator", confeccio¬ 
nado con una mezcla de BASIC y 
ASSEMBLER. 

Este juego trata de un comando 
que debe escapar de la selva enemi¬ 
ga, esquivando diferentes peligros 
que se presentan en cada nivel. 

En el primer nivel debe sortear 
minas, en el segundo nivel es ataca¬ 
do por flechas indígenas y en el 
último recibe disparos enemigos que 
sólo pueden ser visualizados en el 
último momento. El protagonista 
posee una coraza protectora, la cual 
deja al descubierto sus piernas que 
son su único punto vulnerable. 

Si algún lector desea el listado 
de las rutinas usadas sólo tiene que 
escribirme a mi dirección. Igualmente 
me gustaría mantener corresponden¬ 
cia con atarianos que conozcan el 
ASSEMBLER y sepan técnicas como 
Player/Missil o ventanas. 

¿Pueden publicar instrucciones de 
los juegos Space Shuttle y Ghost- 
busters? 

Jorge Flores Zepeda 
Membrillar 93, Rancagua 
Teléfono 223449 


Señor Director: 

Adjunto mi última realización en 
Turbo BASIC que usa las entradas de 
joysticks, que he llamado ALARMAT 
TURBO. 

Se debe cargar el Turbo BASIC, 
luego el Alarmat Turbo y luego ac¬ 
tualizar la hora. 

Al ejecutarlo se aprecia la hora y 
el monitoreo de 10 puertas repartidas 
en 2 sectores. 

Las 3 opciones finales sirven para 
limpiar pantalla y apagar sonidos, 
acallar la alarma sin limpiar la panta¬ 
lla y una para salir del programa. 

Al hacer contacto cualquiera de 
los microswitchs aparecerá en pan¬ 
talla el lugar y hora de.la violación. 

La aplicación puede darse en co¬ 
legios, locales comerciales o en el 
propio hogar. 

Edwin Beard H. 

Lautaro 2695, La Pintana, 
Santiago 


□ Las aplicaciones de ATARI son 
increíbles, como lo demuestra 
nuestro amigo lector. Felicitaciones. 


Señor Director: 

Envío un programa llamado Mini¬ 
sistema Operativo que utiliza la ins¬ 
trucción XIO. 

Este se puede usar directamente 
con un Autorun, o bien con el Auto- 
run que aparece en Dominando la 
1050 del número 15. 

Rodrigo Rauld P. 

Los Corcolenes 7061-B 
La Reina, Santiago 


Señor Director: 

Me dirijo a usted con la esperanza 
de una respuesta, aunque comprendo 
su posición frente a la numerosa co¬ 
rrespondencia que recibe. 

Poseo una diskettera XF-551 que 
utilizo con el Sparta DOS 3.2 en mi 
ATARI 130 XE. Todo esto me hace 
darme cuenta de lo mucho que queda 
por hacer en el campo de la compu¬ 
tación. 

Adjunto un diskette con 8 rutinas 
demostrativas de las capacidades grá¬ 
ficas del ATARI. 7 de ellos son origi¬ 
nales. Espero que sirvan ya que com¬ 
binan con los temas tratados última¬ 
mente por la revista. 

Mariluz Diez I. 

Edimburgo 681, Las Condes 

□ Sus rutinas son interesantes como 
continuación de otra colaboración 
anterior ya publicada. Dentro de las 
posibilidades de espacio veremos la 
publicación futura de alguna de las 
rutinas enviadas. 

M.A. 


Señor Director: 

Envío esta carta para contribuir 
con un juego de creación propia, lla¬ 
mado "Master Kung Fu". 

El juego consiste en desafiar y 
dejar K.O. a Buchu. Los movimientos 
se efectúan con el joystick y el bo¬ 
tón rojo, según se explica aparte. 

Germán González M. 

Cienfuegos 1733, Arica 

□ Solo podemos reconocer su es¬ 
fuerzo en confeccionar este pro¬ 
grama. Seguramente ha sido para 
usted un buen desafío de aprendi¬ 
zaje. Felicitaciones. 


NOTA: Todas las colaboraciones pu¬ 
blicadas en esta sección (salvo la pri¬ 
mera que tiene un premio especial) 
reciben un premio de $ 1.000 en 
software de nuestro Catálogo, a 
elección. 



DESAFIO 


En relación al desafío planteado en 
la columna Player/Missil hemos reci¬ 
bido respuestas de muchos lectores. 
En todo caso continuaremos reci¬ 
biendo más participaciones hasta el 
mes siguiente, momento en el que 
sortearemos el premio asignado. 

Hasta el momento tenemos car¬ 
tas de los siguientes lectores: 

Santiago Quiroz, de Conchalí 
José Vial M„ de Lo Prado 
René Bolla F., de La Florida 
Mauricio González de Cerro Navia 
Cristina Rivera, de Renca 
Carlos Vilches, de Renca 
José M. Fi/enzalida, de Sn. Fernando 
Jorge Salazar, de Yungay 
Raúl Silva, de Talcahuano (2 cartas) 
Leonardo Soto, de Sn. Fernando 
Héctor Heredia, de Arica 
Víctor Heerwagen, de Ñuñoa 
Manuel Fuentes, de Concepción 
Jorge Le y ton, de Valparaíso 
Ricardo Gómez, de Santiago 
Leonardo Durán, de La Florida 
Jaime Terán, de Talcahuano 
Sergio Villaseca, de Las Condes 
Ricardo Vyhmeister, de Ñuñoa 
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Editorial 


M UNDOATARI proyecta este mes la concretización de nuestras ¡deas 
iniciales en relación a masificar el uso del computador ATARI 
con programas utilitarios tan difundidos para computadores de mayor 
capacidad de memoria. 

Muchos de ustedes, amigos lectores, pueden usar ampliamente 
procesadores de texto, planillas electrónicas y bases de datos con los que 
darán realce y proyección profesional a su computador ATARI. 

No olvidemos que aún persiste la asociación del ATARI con una máquina 
de video-juegos, derivado a su vez por la configuración masificada hasta 
ahora en nuestro país: computador con casetera. 

El precio y estrategia de venta de MUNDOATARI ponen ahora a su 
alcance el periférico que usted tanto anhela: la Unidad de Disco. 

La revista de este mes continúa desarrollando temas de interés 
como Player/Missil, manual del DOS-XE, nuevo Sistema Operativo para la 
diskettera XF-551. Este tema será una columna de continuidad para 
satisfacción de los nuevos usuarios de este periférico que tienen dificultad 
con el idioma inglés. 

El nuevo periférico presentado este mes es la Impresora PANASONIC 
1180, cuyas particularidades se destacan en la página 13 de este número. 

Se ofrece un sistema promocional de venta a precio de costo en Estados 
Unidos, para que ustedes, amigos lectores, disfruten con una impresora 
a precio rebajado y con la calidad PANASONIC. 

Nuevos programas originales y textos exclusivos de nuestra revista 
constituyen un nuevo punto de interés para los amigos del autoaprendizaje. 

En el próximo número esperamos contar con novedades y sorpresas 
relacionadas con el uso masivo del computador para el aprendizaje del 
lenguaje ATARI BASIC. Esté atento a esta gran oportunidad, con material 
exclusivo de su revista MUNDOATARI. 

Su editor 
Iván Gjurovic 


MUND0ATARI 

JUNIO 1989 . Precio: $ 400 

Reviste con Informeción exclusiva 
para mlcrocomputadores ATARI 

Resol. Exenta No. 360/6-5-1907 


Editor: lv¿n Gjurovic M. 

Director: Adolfo Torrejón S. 

Representante legal: Lucía Segura G. 
Producción: SES Sistema 
Diaefto publicitario: Ricardo Numl 
Casilla: 458-11, Ñufloa, Santiago 


impresa por eonoeiAi antartica 
quien actúa sólo como impresora. 


Esta revista no mantiene relación 
de dependencia de ningún tipo 
con respecto a los fabricantes 
de mlcrocomputadores ATARI 
ni sus representantes. 

El contenido de la publicidad es 
responsabilidad de los avisadores. 

Prohibida la reproducción total 
o parcial de esta revista sin la 
autorización escrita de los editores. 
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Continuamos este mes con Ia tutoría acerca del 
tema Player/Missil Graphics, para complacencia 
de lectores que buscan ávidamente dicha informa¬ 
ción. Ahora podrá usted coleccionarla en su set 
de revistas MUNDO A TARI. 


ESPECIFICANDO LA PARTIDA DE 
MEMORIA DE PLAYER/MISSIL. 

El microprocesador ANTIC controla automá¬ 
ticamente el despliegue en la pantalla de las imá¬ 
genes de los Player, pero para cumplir con este 
propósito debe tomar conocimiento de la ubica¬ 
ción en la memoria de los datos que dan forma a 
la figura en pantalla. 


La instrucción: 

POKE 54279. localización 

proporciona ese dato. 

Recordemos en el número anterior, en la pá¬ 
gina 10, segunda columna, que los datos de la fi¬ 
gura se encuentran contenidos en el string deno¬ 
minado FIGURAS. 


La instrucción: 

LOCALIZACION = ADR (FIGURAS) 

asigna a la variable numérica LOCALIZACION la 
ubicación inicial en la memoria de los datps conte¬ 
nidos en el string FIGURAS. " ¿ai 


Juntando ambas líneas en una se tiene: 

POKE 54279, ADR (FIGURAS) 
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TUTORIA: continuación 


Nos encontramos con un error conceptual, 
como consecuencia que: 

a) El valor en la variable LOCALIZACION es un 
número mayor que 256. 

b) El valor que puede ubicarse en la localización 
54279 es un número entero entre 0 y 255. 

¿Cómo resolver este problema? 

1. Localizar la ubicación del string del área del 
Player justo al inicio de una página (string 
FILLER$), ver al respecto en la página 8 de 
MUNDOATARI No. 23. 

2. Dividir por 256 el valor de ADR(FlLLER$), 
como se encuentra al inicio de una página, el 
resultado de la división es un número entero. 

La localización 54279 es conocida como 

PMBASE. 



ESPECIFICANDO LA RESOLUCION 

El ATARI considera la posibilidad de modifi¬ 
car la resolución para la figura creada con el Player 
Missil. 

Las opciones son: 

— resolución de doble línea 

- resolución de línea simple. 

Para una diferenciación gráfica de las posibili¬ 
dades usemos una letra "I": 

a) En resolución simple aparece como una línea 
de un pixel. 

b) En doble resolución aparece como una línea 
de doble pixel. 

Supongamos que en el área de Player/Missil 
están contenidos los siguientes datos binarios: 

00011100 
00011100 
' 00001000 
00011100 
00111010 
01011001 
00011000 
00111100 
00100100 
00100100 
01100110 


En resolución simple aparece en pantalla la si¬ 
guiente figura: 



En resolución doble, aparece esta otra imagen: 



La cantidad máxima de bytes disponibles pa¬ 
ra un Player varía según la resolución: 


— Para doble resolución son 128 bytes 
— Para simple resolución son 256 bytes. 

¿Cómo informar al ANTIC acerca del tipo de 
resolución con que se activará la imagen del Player 
Missil? 

Existe la localización 559 que controla esta 
información. 

La expresión: 

POKE 559, 46 

modifica la resolución de la figura del Player 
Missil a doble resolución. 


1 G0SUB 2000iREM RUTINAS INICIALIZA 

2 GOTO 200:REM SALTA A RUTINA PRINCIPA 

L 

J 5AUE ”0i0NSCREEN.SAV“:STOP 

199 reh M HUI I 

200 F0R K0L0RB=0 T0 254 STEP 2 
210 POKE 704/KOLOR0 

220 ? “VALOR COLOR PLAYER =";KOLOR0 
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TUTORIA: continuación 


238 GOSUB DELAY 


LAYER3$=BUFFERS 

248 NEKT K0L0R8 


11858 OIM IMAGE1SU5) 

258 END 


11868 FOR 1=1 TO 15:READ A:IMAGE1$(I,I 

268 REN 


)=CHRS(A):NEMT i 

278 REM 


11888 POKE 54279,ADR(BUFFERS)/256:REM 

288 REN 


INFORMA INICIALIZACION OE AREA MEMORIA 

298 REN 


OE PLAYER 

1999 REM 

2888 GOSUB 18888: REN H H'H IIH 1 l'H 1 '! — 

9885 CD6PMTM K'DFM ti Hill ■ l.lillnH ■■■ 

2818 GOSUB 11888: REM tDWaaSH 

2815 GOSUB 12888: REN rTOnFflBEKíJ» 

2828 GOSUB 13888: REM (SnOMIll^QlBKQ 

2138 RETURN 


11885 POKE 559,46:REM RESOLUCION OOBLE 
LINEA 

11898 POKE 53277,3!REN ACTIVA PNG 

11895 RETURN 

11388 OATA 8,8,28,28,8,20,58,89,24,48, 
76,68,68,8,8, 

11999 REN DIBUJA EL CAMPO 

12888 SETCOLOR 4,16,2:C0L0R 1 

12818 PLOT 8,28:0RAMT0 48,28 

12828 COLOR 3:DRAHT0 60,35¡COLOR 2:0RA 

5888 FOR PAU5E-1 TO 588:NEKT PAUSE:RET 


UTO 79,35 

URN 


12838 RETURN 

18888 REM INIIALIZACION 


12999 REM INICIA PLAYER ,COLOR Y POSIC 

18858 DELAY=5888CRETURN 


ION 

18999 REM GQjlINICIALIZACION 


13888 X8=175:REM POSICION HORIZONTAL 0 

11888 OIM FILLERlSCll,FILLER2$(CINT CAA 


EL PLAYERfli 

R (FILLERlSJ/1824)+1)*1824-ADR(FILLERlS 


13818 Y8=73:REH POSICION VERTICAL PLAY 

)-l) 


ER 

11818 OIM BUFFERS(384),HISSILESS(128), 


13828 POKE 784,8:REM INICIALIZA COLOR 

PLAYER8S(128), PLAYERlS(128),PLAYER2S (1 


PLAYER A CERO 

28),PLAYER3S(128) 


13838 POKE 53248,X8:REM POKEA VALORES 

11828 BUFFERS=CHRS(8) 


EN LOCALIZACION OE POSICION HORIZ. 

11838 BUFFERS(384)=CNRS(8) 


13848 PLAYER8S(Y8)=IMAGE1$:REM COLOCO 

11848 BUFFERS(2)-BUFFERS 


LOS VALORES OE IMAGEN EN EL AREA AOECU 

11845 MIS5ILESS=BUFFERS:PLAYERBSrBUFFE 


ADA PARA SU PROYECCION A PANTALLA 

R$:PLAYERlS=BUFFER$:PLAYER2S=BUFFERS:P 


13858 RETURN # 
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TECNICAS 



Nuevas publicaciones 


ATARI PLAYER/MISSILE 

GRAPHICS 


En BASIC. Este nuevo texto en 
inglés es un excelente material 
que hemos usado para el desarro¬ 
llo de la columna del mismo 
nombre. Disponible para los in¬ 
teresados que desean contar con 
el libro original. 

Los temas que trata son: 

1. Introducción a PGM. 

2. Diseñando imágenes. 

3. Dimensionando strings para 
PGM. 

4. Llevando un Playera pantalla. 

5. Animando un Player. 

6. Bailando con el Player. 

7. Agregando sonido. 

8. Misiles. 

9. Resolución simple. 

10. Detectando colisiones. 

11. Programando un juego. 

12. Pares e impares. 

13. Apéndice. 

Su precio de promoción es de 
$ 5.800, pudiendo adquirirse adi¬ 
cionalmente un diskette con 
gran cantidad de programas ya 
tipiados, por $ 1.000. 


Este valioso libro es para los lec¬ 
tores interesados en la música. 
Los principales temas son: 

1. Qué es la música. 

2. Resonancia y armonía. 

3. Programación de música en 
BASIC. 

4. Comenzando a ejecutar pro¬ 
gramas. 

5. Programas a dos voces. 

6. Programas a cuatro voces. 

El nuevo juego. 

7. El órgano con teclado ATARI 

8. Efectos especiales. 

9. Menú de melodías. 

10. Música adaptada a 2 voces. 

11. Música adaptada a 4 voces. 

12. Apéndice con melodías. 
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TECNICAS 



Este libro es ideal para los nue¬ 
vos usuarios de computadores 
ATARI, que quieren indagar y 
conocer las potencialidades grá¬ 
ficas del equipo. 

Los temas son los siguientes: 

1. Modos gráficos. 

2. Descripción de caracteres. 

3. Modo gráfico 0. 

4. Ventana de texto. 

5. Modos gráficos 1 y 2. 

6. Modos gráficos 3, 5 y 7. 

7. Modos gráficos 4 y 6. 

8. Modo gráfico 8. 

9. Modo gráfico 9. 

10. Modo gráfico 10. 

11. Modo gráfico 11. 

12. Modo gráfico 14. 

13. Modo gráfico 15. 

14. Variables. 

15. Multiplicación en uso de las 
características básicas. 

y mucho más en este magnífi¬ 
co libro que ofrece MUNDO- 
ATAR I para usted. 


Alwnlutrly. posllivrly. eveiythlnft you wmilil Tr»«bi. ««.u», 
wanl ln know nboiil jx-rsonal rompí ilrrs 
In lilis book. If you can'! filie! II ln lirrr. yon i" 

don ! wnnl lo know aboiit II. And hrrr Is "',,1 n»' 

WÍWTT II all IS 


CoMfMll** MI«nkC7 


GETTING 

INTO 

COMPUTERS 


Este programa de uso generali¬ 
zado para cualquier computador 
permite conocer las característi¬ 
cas de los computadores en su 
proceso operacional. 

La presentación es muy crea¬ 
tiva, como lo demuestra el índi¬ 
ce de la siguiente lámina. 
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PROGRAMAS 



MUNDO A TARI proporciona a sus amigos lectores 
la traducción al castellano del nuevo Sistema Ope¬ 
rativo DOS-XE para los computadores XL y XE. 

En los próximos números continuaremos con 
los siguientes capítulos. 


UNIDAD DE DISCO XF-551 

Su computador personal ATARI tiene una 
gran capacidad de memoria, pero no infinita. Más 
aún, todo lo que usted escribe en memoria es olvi¬ 
dado cuando se apaga el computador. La Unidad 
de Disco XF-551 resuelve estos problemas. 

Al almacenar la información en discos la capa¬ 
cidad del computador es prácticamente ilimitada. 
Cada disco retiene casi 3 veces más información 
que el ATARI 130 XE, más de 5 veces la capaci¬ 
dad del 65 XE. No hay límite en cuanto al número 
de discos que se puede usar. La información al¬ 
macenada en disco es permanente, Permanece allí 
hasta que se la cambia. 


QUE HACE EL DOS XE 

El computador no puede usar directamente la 
información contenida en un disco. La informa¬ 
ción debe cargarse primero en la memoria, para lo 
cual se requiere un software especial denominado 
Sistema Operativo de Disco o DOS. El DOS per¬ 
mite al computador trabajar en conjunto con la 
Unidad de Disco en almacenar, recobrar y manejar 
la información. 

El DOS XE es el DOS para los computadores 
ATARI XL y XE y las unidades de disco. Organiza 
la información en archivos y ayuda a mantener 
estos archivos. Usted puede agrupar archivos rela¬ 
cionados en directorios, copiarlos, borrarlos y rea¬ 
lizar otras útiles tareas. 

El DOS mismo es un archivo en disco y debe 
ser cargado en su computador antes de que se 
pueda trabajar. Algunos programas tienen un DOS 
incluido que se carga automáticamente, otros re¬ 
quieren ser cargados por separado (ver capítulo 2). 

La Unidad de Disco ATARI XF-551 y el DOS 
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PROGRAMAS 


XE son una poderosa combinación que optimizan 
su configuración. 

USO DE ESTE MANUAL 

Este manual está escrito para el programador 
experto como para el usuario inicial. Incluye dos 
capítulos para introducir la Unidad de Disco y el 
DOS XE, cuatro capítulos que detallan todas las 
capacidades del DOS XE, tres capítulos de infor¬ 
mación más técnica para programadores y varios 
apéndices. El breve glosario de términos que se 
emplean en este manual es especialmente útil pa¬ 
ra principiantes. A medida que use el manual con¬ 
sulte el glosario para aclarar términos. 

Si usted ha adquirido por primera vez una 
Unidad de Disco debe empezar por el capítulo 1, 
que suministra instrucciones simples para iniciar¬ 
se en su manejo. 

El capítulo 2 lo familiariza con las funciones 
usadas con mayor frecuencia por el DOS XE. 
Con instrucciones seguidas paso a paso se explica 
como cargar el DOS en su computador, preparar 
discos para almacenar sus archivos, duplicar dis¬ 
cos, nombrar y referirse a sus archivos, copiar 
archivos y borrarlos. También se explica como 
configurar el DOS XE para ajustarse a su configu¬ 
ración. Y lo más importante, explica como hacer 
una copia de respaldo de su disco maestro DOS XE. 

Los capítulos 3, 4, 5 y 6 proporcionan ins¬ 
trucciones detalladas sobre el uso de estas fun¬ 


ciones. 

Los capítulos 7, 8 y 9 contienen información 
avanzada para programadores avanzados. 

Los apéndices contienen tanto información 
técnica como no técnica. 

Los párrafos encabezados con "NOTA" y 
"PRECAUCION" contienen información relevante 
a los tópicos en discusión o para alertarlo sobre 
problemas potenciales y sugieren formas de evi¬ 
tarlos. 

Muchas funciones del DOS XE utilizan series 
de solicitudes de pantalla, que requieren acciones 
por parte del usuario, tal como oprimir una tecla. 

Excepto por las pantallas del menú todos los des¬ 
pliegues de pantalla muestran en este manual sólo 
una parte de la pantalla real. Atarj Computer 


CAPITULO 1 

SU UNIDAD DE DISCO XF-551 

Al desempacar su Unidad de Disco encontrará 
los siguientes ítems: 

— Unidad de Disco ATAR I XF-551 

— Cable l/O serie de conexión para la entrada 
PERIFERICO. 

— Fuente de alimentación. 

— Manual del usuario. 

— Tarjeta de garantía. 

Si falta cualquiera de estos ítems comuniqúe¬ 
se con su proveedor. Guarde el material de emba¬ 
laje para el caso de un transporte posterior. 

CONEXION DE LA UNIDAD DE DISCO 

Siga los siguientes pasos para conectar su Uni¬ 
dad de Disco a su computador personal ATARI: 

1. Desconecte la alimentación de todos los com¬ 
ponentes de su configuración. 

2. Asegúrese que el interruptor de alimentación 
en la parte trasera de su Unidad de Disco está 
en la posición OFF. 

3. Enchufe el extremo pequeño de la fuente de 
alimentación en el enchufe marcado POWER 
en la parte trasera de su Unidad de Disco, lue¬ 
go conecte el enchufe de la fuente a la alimen¬ 
tación de la red de 220V. 

4. Conecte un extremo del cable del periférico 
de entrada/salida a la entrada marcada como 
PERIPHERAL en la parte posterior de su 
computador. Conecte el otro extremo del ca¬ 
ble en cualquiera de las 2 entradas PERIPHE- 
RAL en la parte posterior de la Unidad de 
Disco. 

Precaución: Su Unidad de Disco debería estar 
retirada a lo menos 12 pulgadas de su televi¬ 
sor, debido al fuerte campo magnético que ge¬ 
nera éste y que puede afectar la información 
de los discos. 


O 


XF551 Disk Drive 


En este manual los caracteres encerrados 
entre paréntesis cuadrados ( [ ] ) representan te¬ 
clas en su computador. A veces un procedimiento 
requiere el uso de dos o tres teclas al mismo tiem¬ 
po. En este caso las teclas son listadas en orden. 
Por ejemplo [CTRL] [X] significa oprimir y man¬ 
tener así la tecla Control y a continuación la te¬ 
cla X. 



AC Power 
Adapter 
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PROGRAMAS: continuación 


5. Conecte la Unidad de Disco conmutando el 
interruptor de poder en la parte posterior de 
la Unidad, a la posición k La luz en la parte 
frontal de la Unidad de Disco (luz de ocupado) 
se enciende brevemente. Usted puede insertar 
un disco cuando la luz de ocupado no esté 
encendida. 


Computer 

C j" - 

T_ 


Disk Drive Disk Drive Pnnter 

r ~ 


TT_TT_ 


tr 


Drive Switch Selting 

1 H H 

2 U H 

3 B Q 

4 B B 


CONEXION DE VARIOS PERIFERICOS 

Usted puede conectar hasta 4 unidades de dis¬ 
co a su computador ATARI. También puede co¬ 
nectar una impresora, casetera, modem y otros 
componentes. Los periféricos se conectan unos a 
otros en serie, empleando los cables de l/O sumi¬ 
nistrados con cada componente. 

Hay 2 enchufes de periféricos en la parte pos¬ 
terior de cada unidad de disco. Para instalar varias 
unidades de disco, conecte un cable de 1/0 para 
periféricos a un enchufe de la primera unidad de 
disco y el otro extremo al enchufe del computador. 
Conecte otro cable 1/0 para periférico al enchufe 
restante de la primera unidad de disco a cualquiera 
de los enchufes de la segunda unidad dé disco. 
Conecte los otros componentes en la misma for¬ 
ma descrita. 

POSICION DE LOS INTERRUPTORES DE 

SELECCION EN LA UNIDAD DE DISCO 

Si su sistema incluye más de una unidad de 
disco, debe indicar el número del dispositivo para 
cada unidad de disco. Use los dos pequeños inte¬ 
rruptores selectores de unidad de disco ubicada en 
la parte posterior de cada unidad de disco. Los in¬ 
terruptores identifican el número de dispositivo 
de cada unidad de disco. 

Para establecer los interruptores, desconecte 
la alimentación de su sistema computacional. Gire 
la unidad de disco de manera que pueda ver la 
ventana del selector de unidad en la parte posterior. 
En el interior de la ventana están los dos pequeños 
interruptores. 

(ver esquema en la columna siguiente) 

Use un'lápiz o un pequeño destornillador para 
colocar los interruptores en posición. Siempre de¬ 
be tener una unidad como unidad 1. 

A continuación asegúrese de etiquetar cada 
unidad de disco con su número respectivo de ma¬ 
nera de no confundir las unidades cuando esté 
operando con el DOS XE. 


CUIDADO DE LA UNIDAD DE DISCO 

Un disco es una pieza circular de plástico, den¬ 
tro de un sobre protector cuadrado. El disco está 
cubierto por un revestimiento magnético similar 
al recubrimiento de una cinta de casete o de video. 
Este recubrimiento almacena sus datos en forma 
magnética. Para asegurar una vida prolongada y la 
confiabilidad de sus discos debe manejarlos en 
forma adecuada y cuidadosa. 

La mayor parte de los discos tiene una peque¬ 
ña muesca de protección de escritura en un costa¬ 
do del sobre protector. Al cubrir esta muesca con 
una cinta adhesiva suministrada con el disco puede 
prevenir que la información del disco pueda ser 
borrada o alterada. 

Recuerde las siguientes reglas para el cuidado 
y manejo del disco: 

1. Nunca conecte o desconecte su unidad de dis¬ 
co con un disco en su interior. Nunca deje un 
disco en su interior durante la desconexión 
de la unidad. 

2. Use un pincel suave o aire comprimido de un 
spray para remover cualquier polvo de la 
superficie del disco. 

3. No doble ni quiebre sus discos. Ellos deben gi¬ 
rar libremente dentro del sobre. 

4. Guarde sus discos en sus sobres protectores y 
en posición vertical. 

5. Mantenga los discos lejos de dispositivos eléc¬ 
tricos, incluyendo televisores, teléfonos y 
cables. 

6. Mantenga los discos alejados de la luz directa 
del sol y de temperatura excesiva. 

7. No escriba sobre la etiqueta del disco con lá¬ 
piz o bolígrafo. Use lápiz de punta blanda y 
presione suavemente, o bien escriba la etique¬ 
ta antes de adherirla al sobre del disco. 

8. No use goma de borrar en las etiquetas del dis¬ 
co. Las partículas son abrasivas y dañarán la 
superficie magnética. 

9. No coloque clips metálicos en sus discos. 

10. Nunca tome la superficie del disco en su parte 

expuesta. Las huellas digitales pueden dañar la 
superficie magnética. # 
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Impresora 


Para MUNDO A TARI es un orgu¬ 
llo poner al alcance de nuestros 
amigos lectores esta nueva impre¬ 
sora PANASONIC. 


La impresora mencionada ha 
aparecido en el mercado nortea¬ 
mericano en el mes de abril pasa¬ 
do, como lo demuestra el articu¬ 
lo FIRST LOOK de productos 
de la revista PC MAGAZINE de 
mayo de 1989. 

Esta impresora de bajo costo, 
de 9 puntos, presenta caracterís¬ 
ticas muy avanzadas que sólo se 
encuentran en otras de mayor 
valor. 

Su constitución vigorosa la 
hace sobresalir frente a los anti¬ 
guos modelos PANASONIC de la 
colección 1180. 

Un panel de botones al toque 
permite controlar al tacto cerca 
de 11 funciones: 

— Tipos de letra Draft y 3 tipos 
de calidad. 

— Formatos: 4 selecciones. 

— Avance de línea. 

— Avance de hoja.' 

— Modo silencioso. 

— Y otros. 

las especificaciones se muestran 
en la página siguiente en la publi¬ 
cidad original en inglés. 


Panasonic Redefines Dot Matríx Low End, Again 



B Y JONATHAN MATzKIN 
I Mili Inven'! boughl Ihc idea of 
Iricklc-down económica. bul 
Panasonic’s ncw dol-malrix 
primer* are making me a believ- 
cr in "iricklc-down" Icchnul- 
ugy TheM low-cnd 9-pin ma¬ 
chines boas! u laundry lis! of 
fémures you woutd capee! lo 
fmd in high-cnd pnnlcív Thcy 
also dcliver solid performance 
al pnces Ihal should makc ihc 
coinpclilion swallow han) 

The KX-PI191 and KX- 
Pl 180 are very much in Ihe 
same apiri! as ihc reecmly inlro- 
duced KX-PI 124. Pannsonic's 
luw-cnd 24-pin offering. Wiih 
performance and fealures likc 
ihesc. diH malrix ptinlerv—par- 
licularly Ihosc a! Ihc low 


Type: 9-pin impact malnx 
Carrlage wldlh: 9 in. 
Prlce: KX-P1180. $299.95, 
KX-P1191: $399.95 
SPEED (epa): 

Halad: KX-P1180:160, 
KX-PI 191: 200 
Defaulf. KX-P1180:91; 

KX-P1191:101 
TYPE PITCHES (cpO: 5,6, 
75, 8 5, 10. 12, 15, 17,20 
SOUNO LEVEL (declbela): 
Tostad: 80 


end—may be around lunger 
Iban láser fanalics prcdici 
The $399.95 KX-P1I9I 
shochoms an exccllcnl array of 
fealures imo in compacl case. 


FEATURES: 

Prlnllng: Bold, Ooublo stnke. 
corres pcndenco qualily. subr 
superscripl, undertine 
Formalllng: Centerad. double 
Ngh, double widih, horttonial 
labs. vertical tabs. justihed, 
proportiona! spacing. variable 
lotm length, variable Une height 
COMPATIBIUTY: 

IBM charader sal: Low and rdgti 
Graphics: Epson FX-86e.TX 
800, IBM Proprinler II 
Teit: Epson FX B6e-TX 800, 
IBM Propnnter II 


In 5Ví- by 5Vi- by l2Vi-inch 
(HWD) dimensión* are cióse to 
Ihosc of lis prcdeccssor, Ihe 
KX-PI09IÍ, bul Ihe rescm- 
blance ends wiih sir.e. Tile KX- 
PI 191 sports a fronl-mounlcd 
control panel Ihal is an adapta- 
non oí Ihc one found on ihe 24- 
pin KX-PI 124 

Manyoflhc KX-PI 191's 
inoslimponam fealures. includ 
ing lypefaccs. fom siles, and 
margine can be easily adjuslcd 
frorn Ibis control panel. The 
row-and-column layoui of Ihe 
panel i.snY as casy lo dccipher as 
il sccms al firsl glance, bul us- 
ing n becomcs second nalure 
with a littlc practico, 

Panasonic has givcn ils ncw 
gcncralion of low-cnd machines 
much-improvcd paper handling 

10 go along wiih ihcir case of 
use. Most noiably. lile KX- 
PI 191 has a bollom slol Ihal al- 
low-s you ihe option of loading 
fanfold paper from undemealh. 

11 also has paper parking, a fea- 
lurc found on only expensive 
primen. nol so long ago. 

Panasonic'* previous low- 
cnd dot-mairix machines sel 
ncw standard* for Ihe prini qual¬ 
ily you coukl rcasonably expeci 
from inexpensive printers. and 
Ihc ncw machines uptuild Ihosc 
standard*. The KX-PI 191 has 
four built-in lypefaccs. Ihree of 
which can be convcnicnily sc- 
lected fnii-i thc front panel. 

The Couricr lypcfacc in 
NLQ (ncar-lciier-qualiiy) modo 
looks good cnough for inlcmal 
niemosand ihc likc, Ihough you 
probably would want a 24-pin 


or láser primer for morc-intpor- 
larn reporls and corrcspon- 
dcncc. The otlicr lypefaccs, cs- 
pecially Ihc saos serlf, «c solid 
and wdl formed Thcrc are litn- 
llx on ihe prinl qunhiy Ihal 9-pin 
tcchnology can produce, espe- 
eially al Ihe low end, bul ihe 
KX-PI 191 generales ronsis- 
Icnily good-lookmg ouipul. 

Al around lUOcharuclersper 
second in diall mude and 31 cps 
in NI.0 mude, Ihe KX-PI 191 is 
nol Ihc faslcst dol-mairix primer 
arouiul. bul il is certainly faslcr 
Iban many unils in its pricc 
range 

For Ihosc on a very limiled 
budgcl. Ihc $299.95 KX-PI 180 
offers many of Ihc fcaiuics of 
Ihc KX-PI 191 II. loo, acccpls 
fanfold paper from bclow as 
well as behind, and il sports a 
simplificd versión of Ihc same 
control panel The modcst pnce 
also buys you paper paiking and 
ihe same four built-in fonls Ihal 
Ihc KX-PI 191 has. The KX 
Pl 180's drafl mude speed is a 
bu slower (91 cps) bul slill ac- 
ccpiablc for mosl |icrsoiuil and 
fmall-busincss applicalions 

For personal use In applica- 
lions in which ucar-typesct prinl 
qualily isn't required, Ihc Pana¬ 
sonic KX-PI 191 and Ihc KX- 
PI 180 are exccllcnl choices. 
Sludcnl*. in parllculur, will luid 
IIk-oi lo be a good combmalion 
of compaclncss, performance, 
and valué. I2Í 


¡JÚ F A C T 
«FILE 


KX-PI 191 
Panasonic KX-PI 180 
Panasonic Industrial Co. 
Computer Producís División 
2 Panasonic Way 
Secaucus. NJ 07094 
(800) PIC-R086 
List Pricc: Panasonic KX- 
PI 191. $399.95. KX-PI 180. 
$299.95. 

In Short: Salid 9-pin dol-ma- 
Irix performen with (he fealures 
and prinl qualily of higher- 
priced models. 


cin?L£ o»d fí£ AOfp rtnwct c«no 


Panasonic -KX-PI 180 


I went to the woods be 
wlshed to Uve dellber 
to front only the esse 
facta of Ufe. - H. D. 
Pica Bold Under 1 lne Co»i 
NLQ Pica Bold Underlin 
Bold PS Bold Under1Ine 


Panasonic KX-P1I91 


I went to the woods be 
wlshed to Uve dellber 
to front only the esse 
faets of Ufe. - H. D. 
Pica Bold Under 1 ine Co»i 
nlq Pica Bold undctlln 
Bold PS Bold Under1lne 
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Panasonic 

KX-P1180 


Tal como se anticipó en la 
página anterior, la impresora 
KX-P1180 se trata de un peri¬ 
férico de contextura sólida y 
que cuenta con muchas ventajas, 
de las cuales haremos un breve 
comentario a partir del catálogo . 
en inglés. 

En la ilustración' superior se 
presenta el panel de comando 
al tacto. 

En la columna siguiente re¬ 
producimos textualmente las 
especif icaciones técnicas. 

Para los lectores que prefie¬ 
ren un resumen de sus carac¬ 
terísticas, mencionaremos: 

- Velocidad de impresión en¬ 
tre 38 y 192 cps, dependien¬ 
do del tipo de letra. 

- 4 tipos de letras de calidad: 
Courier, Prestige, Bold PS y 
Sans Serif. 

- Tipos de letras disponibles en 
10 tamaños (desde 5 cpi has¬ 
ta 20 cpi), además del espa¬ 
ciado proporcional. 

- Posibilidad de crear 3.400 
tipos distintos mediante la 
combinación de los tipos ba¬ 
ses (cursiva, doble alto, des- 

, tacada, subrayada, etc. 

- Resolución de 240 x 216 pun¬ 
tos gráficos para una clara re¬ 
producción de gráficos. 

- Permite, usar papel continuo 
u hojas sueltas. 

- Cordón de alimentación ale¬ 
jado del flujo del papel. 

Visite MUNDOATARI para 
comprobar personalmente las ca¬ 
pacidades que hemos comenta¬ 
do en esta edición. 


Specific 

Print Method 

;ations 

Impact Serial Dot Matrix 

Print Head and Ufe 

9 pin (0.3 mm wire diameter), 100 million characters 

(draft) 

Prinl Direction 

Text: bidirectional (user selectable unidirectional) 
logic seeking; Graphics: unidirectional 

Print Speed 
(characters 
per second) 

Draft NLQ 

Elite 192 cps 38 cps 

Pica 160 cps 32 cps 

NLQ Fonts 

Courier, Prestige, Bold PS, Sans Serif 

Character Matrix 

Draft 9x9; NLQ-San Serif 18x9; NLQ-Other 18x18 

Printing Sizes 

5, 6, 7.5, 8.5. 10, 12. 15, 17 & 20 cpi 

Characters Per Line 

40 48 60, 68, 80, 96. 120, 137 & 160 cpi 

Lines Per Inch 

6. 8, n/72, n/216 Ipi 

Character Sets 

96 ASCII characters, 96 italic ASCII characters 

32 International characters — 13 countries 

32 Italic international characters - 13 countries 

158 IBM special characters - sets 1 & 2 

Bit Image (matrix) 

240x216 dots per inch 

EZ-Set Operator Panel 

Controls over 11 functions including: 

Font Micro line feed 

Pitch Quiet mode 

Form length Perforation cut 

Line feed Form feed 

Line Feed Time 

ADDrox. 100 msec (with 1/6 inch line feeding) 

Tractor Feed 

User selectable push or pulí 

Paper Feed 

Path: Method: 

Top Friction/Cut Sheet Feeder (opt) 

Rear Push Tractor (adjustable) 

Bottom Pulí Tractor (adjustable) 

Paper Specifications 

Continuous: 4.0 to 10.0 inches, 16 to 24 Ibs. 

Single Sheet: 4,0 to 11.7 inches, 16 to 24 Ibs. 
Envelopes: #10 

Copies: Original+3 non carbón copies 

Thickness: Máximum thickness less than 0.013 in 

Emulations 

Epson FX-86e, IBM Proprinter II 

Interface 

Centronics parallel. RS-232C serial (optional) 

Buffer 

2K (standard), additional 32K (optional) 

Noise Level (LQ Mode) 

Environment 

55 dBA (standard mode), 52 dBA (quiet mode) 

Operating: 50°F to 95°F; 30 to 80% humidity 

Storage: -4°F to 140°F; 10 to 90% humidity 

Reliability 

4000 hrs MTBF 

Ribbon 

Black seamless ribbon; 4 mil chr (draft/KX-P115) 

Warranty 

Limited 2 years — parts & labor 

Dimensions and Weight 

16.7(w)xi3.4(d)x5.2(h) inches; 14.1 Ibs. 

Options 

Automatic Single Bin Cut Sheet Feeder (KX-P37) 
RS-232C with Current Loop Serial Interface (KX-P19) 
32K Expansión Buffer Chip (KX-P43) A 
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□ ISKETTE 



Dominando la 1050 


MUNDO A TA Rl presenta en la columna de la 
Unidad de Disco de este mes una interesante po¬ 
sibilidad dirigida a nuevos usuarios que confían 
en las promociones de nuestro departamento 
comercia!. 


Esta columna entrega un soporte para el uso 
de este periférico, de modo que su configuración 
ATARI adquiera una dimensión suficiente para 
que deje de considerarse como una máquina de 
juegos y entretención. 

El utilitario de este mes se denomina Ordena¬ 
dor Alfabético, y su uso se refiere a los nombres 
del directorio en un diskette. 

Es un nombre largo para un corto trabajo, pe¬ 
ro no deja de ser productivo, pues permite racio¬ 
nalizar la búsqueda de un archivo en el directorio. 

¿Qué operaciones efectúa DDA? 

1. Lee el directorio en la memoria. 

2. Ordena alfabéticamente los nombres. 

3. Escribe nuevamente los nombres en el dis¬ 
kette. 

Es interesante destacar que el disco debe en¬ 
contrarse sin la etiqueta de protección, para no 
entorpecer la operación de escritura. 


Digite cuidadosamente el listado siguiente: 


10 REM * * * ** * 

21 REH * DISK DIRECTORIO * 

30 REH * ORDENADOR * 

40 REH * * 

50 REH * * 

60 REH * * 

60 REH MKKNMNKMNNKKKKKMNMMKMK N MNNNM I I 
90 REH 

100 DIH D$(1024),5D$(120),N$116):DRV=1 
:VRF=1 

110 D0=ADR(SD$):50$="?":SD$ tl28> ="?":5 
D$(2)=SD$ 

120 GRAPHICS 0!POKE 7S2 ( 1:P0KE 02,0 
130 P05ITI0N 0,4:? 


140 POSITIQN 0,6J? "—El ordenador Aif 
abético de Directorio-" 

150 P05ITI0N 0,8:? '«a 


Verifica 


160 P05ITI0M 8,0!? CHR$tDRV+176> 

170 IF URF=1 THEN POSITIOH 36,8:? "B* 
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DISKETTE: continuación 


186 IF VRF=8 THEN POSITION 36,8:? *139 
«« 

i98 POSITION 8,12:? "► Baiibia Orive 
/ Verifica":? :? "► Qroceso Oirector 
i o” 

288 ? :? 5i5tena operativo Risco" 

ICOSUB 658:IF 8=68 THEN DOS 

218 IF 8=67 THEN 248 

228 IF 8=88 THEN 278 

238 GOTO 218 

248 PONE 752,1:? :? "► ITO1MÜ1 B 

EQ: M j:G05UB 658:8=8-48lORU=8:? BRV:IF 


0RV<1 OR BRV>9 THEN 248_ 

258 ? "► tligWMi8MMtn:i«l r M t i 605 
UB 658:MRF=8:0RF=VRF-48:? VRFtIF VRF<8 
OR VRF>1 THEN 258 
268 PONE 752,1:GOTO 128 
278 G05UB 668 

288 ? "► JKOraraBSB—:? 


INJERTE DI 


r 

298 ? "SEGURO RUE S8G0 
CCION " 


388 ? "► 


Pulse una 


ETIQUETO PROTE 


teclal 


¡GOSUB 6 


58 

318 IF VRF=1 THEN POKE 1913,87 
328 IF VRF=8 THEN PONE 1913,88 
338 G0SU8 668 

348 0P2=l:0P=82151=361:52=368:GOSUB 67 

8 

358 GOSUB 668:POKE 559,22 
368 TR8P 38B:F0R 8=1 TO 993 5TEP 165IF 
0$18*22,8*321THEN 388 
378 NEXT 8 

388 XN0=8:F0R Z=1 TO INTCXND/16) 

398 FOR X=8 T8 XNO-16 5TEP 16 
488 IF 0$ CX46,XF18I>0$ CX+22,X* 32) THEN 
N$=OS(X*l,X+16)!0$ (X*i,X*18)=0$ CX+17, 
XF32I:0$CX+17,X432I=N$ 

418 NEXT XíNEXT Z :P6KE 559,42 

428 ? *'♦> miIHItü E"i? :? “ 

458 ? " sector ESPERE....... ■>■" 

468 ? :? "► 

478 POKE 752,1:GOSUB 658 
488 GOSUB 668 

498 51=361:52=368:0P=87:0P2=2 
588 POP :GOSUB 678:FN=8:POKE 559,22 
518 FOR X=4 TO 16*(INT(CXNR*17)/16)) 5 
TEP 16 

528 S1=8SC CQ$(X*l,X+l))*256*A5C(D$(X,X 
)) 


538 LN=85CI0$CX-2,K-2I):IF D$(X-3,X-3) 

=CHR$(128) OR LN=8 THEN 638 

548 52=51 

558 0P=82:0P2=8 

560 GOSUB 678 

578 Z=85CC50SC126,126)1:Y=A5C(5B$(127, 
127)):NXT5=256#(Z-4*(INT(Z/4)))*Y 
588 Z=4*FN*C CNXTS-Y)/256):50$(126,126) 


=CHR$(Z) 

598 0P=87:0P2=8:GOSUB 678 
688 51=NXT5!52=51:0P2=8 
618 IF NKTS=8 THEN 638 
628 GOTO 558 

638 FN=FN*1:N EXT H:POKE 559,42 
548 ? :? ‘WWMMaM'lJM.toM 
■B":FOR 8=1 TO 888:NEXT 8:GR8PHICS 8: 
ENO 

•58 CL05E ttl:OPEN ttl,4,8,"K:"JGET 111,8 
: GLOSE m:RETURN 

668 FOR 8=12 TO 21:C0L0R 32:PL0T 8,8:0 
R8NT0 39,8:NEXT 8:P05ITI0N 8,12:RETURN 


678 REH 

688 POKE 769,ORO:POKE 778,0P:Z=8 
698 FOR 5N=51 TO 52 
788 POKE 779,8 
718 IF 0P2=2 THEN GOSUB 688 
728 50=B0-256*INT(00/256) 

738 LO=INT(00/256) 

748 POKE 772,50:POKE 773,LO 
758 POKE 778,SN“256#INT(SN/256) 

768 POKE 779,INT(SN/256) 

778 HO=USR (80R ("h 5fi4")) 

788 IF 0P2=1 THEN 0$(LEN(0$)+1)=50$ 

798 NEXT SNiRETURN 

888 50$(1,128)=0$(Z+l,Z*128) 

818 Z=Z*128 
828 RETURN 


Salve una copia de este programa en su disket- 
tera con el nombre: 

"D: ALFABE.BAS" 

Ejecute a continuación el programa con la ins¬ 
trucción RUN. 

En pantalla aparecerá un menú de opciones: 

C: cambia el número de drive. 

P: ejecuta el programa 

C: Sistema Operativo DOS. 

De este modo podrá comprobar que su direc¬ 
torio ya se encuentra ordenado alfabéticamente. 

Hasta el próximo mes, amigos. • 
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PROGRAMAS 


SECCION 
PARA AVANZADOS 


MUNDOATARI entrega una serie de títulos y pe¬ 
queña descripción de nuevos programas de domi¬ 
nio público, que usted puede adquirir con el có¬ 
digo indicado al precio de $ 500. 

Esta es una contribución para los usuarios de 
la diskettera. 


page i 


800/XL/XE PUBLIC DOMAIN SOFTWARE - $5.00 PER DISK 


Rcv. 01/88 


RPjULi 


ineludes: MICROXSSE MSn^Lith USR ROUTINES 
& ASSEMBLER. A disk documentor, do automallc line 
numbor witH NUMI Connecl parallel primer ports 3 A 
4, and a memory testar. 


&^ 9 ¿ 1 EM^ UP f3ewmmunM^on» software. HOME 
INVENTORY tracks your belonglnos. TYPO, the 
original ANTIC proolreader BUBBLE SORT, an E-Z 
data controller. RENUMBER, makes BASIC line 
number changos simple. Plus. COMPARE, a listings 
dillerence checker. 


_ w ...,___GTIA TEXT WINDOW. 

LABEL PRIMER, RT CLOCK, add real timing toyour 
system plus DISASSEMBLER. ollers Mt analysts. 

ÍW$Í 5 ÍFmUr^ous themes- MA.S.H, Happy 
Days, Young and the Restless. and morel Does not 
require Music Composer cartridge. 

SPIRAL, SPIDER. 
COLORING PROGRAM, and much morel 


POPI 


i GRAPHH 


a im Music and Drawing appllcatlon 
programa - for programming, school, homo use: BABY 
PRO SOUND, TUNE RITE, ETCH SKETCH, and more. 


T^lT^l^orTSflñ - In tire disk MI ol excellem 
high-resolulion digitized pholos. 


A DO doubíe^B¡ded °disk' that Ineludes: Powertul 
FIG-forth language, an EDITOR, plus ON-DISK 
TUTORIAL (lutorial requires FixXL). 


BUSINESS A 


More thañ vt programsl BANK BALANCE, IRA tund 
accounting. BUSINESS, a great menu-driven mtegrated 
soltware. BAR-GRAPH. asinkingfund tracker. plus 9 
more titlesl 


PP023 - COMPUTE R.TUTOR 

Eight learning games:BAHNY 

CONCENT RATION, multi-purpc 


C 
more. 


.ARD. MATHWARS, 

purpose test program and 


P P0 26 (TRANSLATOñ ) 

FIX XI disk contains entire compatible 400/800 OS so 
XUXE owners can run ALL Atari soltware. 


-sica, EA r 

TRAINING DRILL, plus an endless 3- D maze where you 
search lor musical passages. 


P . PP 30 AUTQPl.At.EB T^^PHQNEPASE 
Hayes-compalible machine ianguage telephone 
databaso diais 100 difieren! phone numbers. Diais codes 
lor mosl long-dlstance carriers such as Sprint, MCI, 
and ITT. Prims standard lorm-led labels. (850 Interlace 
requlred). 


PD037 ■ VT 100 TERMINAL EMULATOR 
An BO-column terminal program without any special 
hardware. Thls will turn your Atan Into a 
DEC-compatlble VT 100 graphics terminal Supports: 

S os compatible (850 Interlace and R-Vertorj, Atari 
and 1030, and MPPlOOO módems, Access on-Une 
VAX graphics. Use with any DEC minicomputer, 
includmg Delphi and CompuServe. Ready-to-run, 
complete documentation included (requires Flx XL and 
a monitor). 

PD038 - KERMIT TERMINAL EMULATOR 
Now your Atarl 80Ó can talk lo the new Alan ST'S, IBM 
PC's, and many other minid and micros. Comes ready 
lo run, with documentation. Supports Hayes compatible 
(850 Interlace) módems. 




II you own HomePak, this disk will allow you to change 
dozens ol parameters: new character sets, key repeat 
rate and bell togglo. auto line-leedson/oll (essential lor 
MCI and DelphiT. Special handlers lor MPP modem, 
ATR-8000. and R-Verter owners. 130XE owners can use 
the RAMdisk patch lo access thelr extra 64K. 


PD042 ■ ATAR! MINI-F1LM FEST IVAL 

Contains eight lilms made with Moviemaker Dancing 

Robots. Swarming Birds, CharlieChaplin, and more. 

PD043•ARTOOS 

ll you use mu-.roscreen graphics or special character 
sets in your programa, ArtDOS will load thom to your 
screen direclly Irom DOS -- no graphics program is 
required. New DUP.SYS menú options inelude Load 
Micro-painter lile Load Micro-lllustrator lile. Load or 
Display Character Set, 

P P044 - C.U.E,S , EP .PACK £1 

Six mathematics games, Includmg, ,/, guessing 
pames, román numeral lutorial, and drill A practica 
tessons. Hi-resgeometry and algebra equalion plotters. 
International geography game plus two USA States and 
capitals lessons. 

P P045 - C . U.E.S, EOPACK jf2. 

Generales any mathlunctions. Create a custom 
spelling bee . Interactive N. A S. American lesson. Motric 
system lutorial, Prime lactors. Linear interpolation, 
quadratic roots. simultaneous equations, and motel 

PD046 - ESSENTIAL UTIL. (♦EPSONAIDS) 

Eight Utilities lor Epson MX and FX owners. SYSAT an 
Atari system status monitor. PROTECT scrambles 
BASIC programs.Convert USR code into BASIC strings. 
Plus 14 morel 

PD047 - DATABASE MGR 


»■ A DISK UTIL . Suprindx A 
T POPULAfiTiSER GROUP 


PD040 - MSCOPE MPP TERM EMULATOR 
MSCOPE is a special versión ol 1 SCÜPE just lor the 
MPPlOOO series ol módems. This is the only way to 
view CompuServe's on-llne graphics. Comes with 
complete documentation. 


dlskdir.l WO OF THE MOS--,- 

DISK DIRECTORY DATABA SES.SETCHEK - simple 
sector checking utility. CALENDAR - prints montlhy 
calendar anytime this century. OUIKSORT - leárn to sort 
lastor in BASIC. Ineludes SUPERDUP.SYS. and a 
new DUP5YS. 


PD048 - PROGRAMMER'S PESIGN TOOL S 
Redelme any mode character sets.Create Computer 
graphics with SKETCH Experiment with POKEY chip wílh 
SOUNDLAB. DATABASE is a general purpose lile 
managemenl system. Plus a lot morel 

PD049 - BEATLES COMPENDIUM 

PPQjip- ROCK <?F THE WS. 


PD051- ALL THAT JAZZ 




MAN 

are two mind blowing 
digitized human volee experiments. Pul David Lee Roth 
inside your Atarl (Hlnt: NACHRIC is an eerie helio in 
Germán Irom our Atarl Iriends overseas • erystal clearl) 

BXgaS Hatt FU modas. An 
unlimited number ol colors and patterns. Use the 
mini-DOS (or lile handling. Follow documentation to 
Inelude liles in your BASIC programa. Ineludes 8 
microscreen pictures. 


Pfi914^ c mN|U T )LITJE?-ll 
Six Actionl programs, including 4 Ep 
character dump routines. Suporlast GTlA 
Display llst example. Internal DUP.SYS wrltten in 
ACTlONI Plus 5 graphics demo's. 


sson screen A 
, screen loader. 


m^^L^l enus, Valkyrle D'N'D 
Horoes, Space Dock, and morel Alt pictures display 


more than 30 colors at once. 


PP9M - A ST BQNQ MY » M ET.EP B0 l.P9y 
Ineludes an observation simulator.a hurrlcane 
localor/tracker: a planetarlum simulalion, planet tracker 
and a weather lorcaster which usosyour barometrlc 
readngs to predict weather conditlons. 

PD064 • RADIO A ELECTRONICS 

Ineludes a Y AGI antenna designer, three resistor design 
and decoder programs. and an LC-circuit valué 
Computer. HAM Utilities indude cali record program and 
a routine to put a dock and call-letter log on 
screen. All programs are easy To modily lo your 
individual needs. 


PD065 • 130XE ARTSHOW 
Has sixteen great pictures all loaded into the exira 64K at 
once, and then displays them by page- llipplng Irom one 
to the other. The short program that does this Is In 
LISTable BASIC lorm, and you can study it and modily 
It to load your own compressed Microillustrator liles. 

A2 


witfi single,1050 enhanced, and double 
densiiy drives. Comes withlOO-screenon-line help system 
and alf documentation. 

PD069 • MONITOR/DEBUGGER AND MORE 
Features a machine language monitor/debugger with 
Source code, Renumber program with Assembly source 
code, conven DOS 3 files to DOS 2.5. Print labels Irom 
HomeCard, Print multicolor lext on the 1020, convert 
graphic screens into text graphics A more. 

a new Mode8 

paint program loaded with leatures. Ineludes BASIC 
source code lor the program. 

PD071- PERSONAL FINANCE AND EDUCATION 

Ineludes a personal bookkeeper, a lile Insurance analyzer, 

a ledger program and a teacner’s Computer gradebook. 


PD072 • TRIVIA QUIZ 

Play this game alone or with 2frlends (2 on XL/XE) or 
create your own trivia liles with 350 queslions per 
disk(730with double density). Ineludes instructions and 
Assembly source code. 

PP073 - thb r a mbranp t.c ollection 
D esign special ellects slide shows lor Rambrandl 
pictures. Supports 130XE RAM disk and comes with a 
selection ol Rambrandt art. Rambrandl not req. 


PD074 

Steve I 

colors. 


4 - SJEVE DOfjG'S GALLE RY 

Dong's piclures use múltiple DG 

. Eacn picture has its own special 


s to create many 
special loader. 


PD055 - ACTION! UTILITIES »2 . 

Machino language assembler works with Actionl monitor 
(plus does). Dtsassemble ML programs in Actionl. Hi 
performance in-RAM sort utility. Convert DOS 3 to DOS 
2 liles. Generate asell- relocating binary load nieBinary 
load menú with rainbow background. 

ATARI TEFWINAI^Fe'atures: joystick inpul, auto log-on 
macros. adjustable delay rale. SPRINT S MCI codé 
support, am/pm dock, on-line timer, adjustible margins, 
on-llne help menú.auto-dial database auto-redial. 
300/1200 bps, unlimited lile capture, Xmodem and 
buill-in disk Utilities package, and more. 


modems.Supports auto answer on the XM301. Contains 
instructions to build a ring detector lor other módems. 

^sule^m^^p^o^w lth 835. 1030. and 
XM301 módems. Use TÍSCOPE lor CompuServe VIDTEX 
on-line R.L.E. graphics. 

use the 850 and 

other intertacos, supports 300,1200. and 2400 baud. Use 
TSCOPE lor CompuServe VIDTEX on-llne R L E. 
graphics. 


S - . Tf K 4010 GRA P HI C S TERM , EMULATO R, 

our Atari into a Tektronix Graphics dumb terminal 

emulator that displays 32 or 64 coturnos ol text. and 
graphics at 256x195 rosolulion. Dump the 19k buller lo 
the screen or an Epson compatible primer. Requires a 
Hayes compatible modem. 

PD087 - MPP EXPRESS/MSCOPE 

This versión was made especially lor owners ol the 


MPPlOOO series módems. Use MSCOPE lor CompuServe 
VIDTEX on-line RIE. graphics. 
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800/XL/XE PUBLIC DOMAIN SOFTWARE - $5.00 PER DISK 


Rcv. 01/88 


PD088 • ICON GRAPHICS EDITOR 
)raw Printshop iconswith ihis advanced palnt program. 


Requires Printshop. 


jreato a colorM Filie Screen ihal will load in Iront ol 
your program and aulomatically run your program for 


you. 


PrJmsíhe designa you made wuh thePrlntshop praphic 
editor. Each deslgn is primad in mlnature formal 
includlng ihe ñama ol ihe piciure. 

A new twist on the oíd Atan In-store domo ... lor adults 
onlyll 

«i. 

graphlcs capabilitíes ol your Atan computar! 

Wriuon ¡n Gefmany! Swdemowill dazzle you wilh ifs 
beautilul colorlul graphics and music like you nevar 
dreamed posslblel 

BC006 - THE ABC's OF CPñ 
A iwo-disk tutoría! on tiow to save a Illa by 
admlnlsiarlng Cardlo-Plumlnarv Resusatation (CPR). 
Excellenl lor both chlldron and adults. 

A C groat’ ^Isk'jan^packéd wilh hard-lo-flnd Utilities 


n graat disk |am . ..-- ---.- 

like cassetta-to-dÍ5k, lape-lo-tapa, tape-lo-disk. 
disk-to-iape and much moral 

ffi;°o°o! thola'lard^lo-^iñd 2 Utilities like cari copy, tape 
dump. tape dupa. etc. 

shows olí the power ol the 8-bit computar. Dozens ol 
kalidoscope lype piclures Ihal changa each time the 
program is run and some really great music. 

a lamous bounclng Atari lu|l. the 
8-bit vorsion ol the ST bouncing ball. and several 
olhers. 

f^ris-t^^lIS^^ setta software tha, 
comes packaged wlth tha 1020 printer. Sido 11s the 
sketchpad lor drawlng your own piclures and sida 2 
contalns the domo programs that plot various 
designs on the primar. 


ONLYI 
VOL. «t 


you 


BC021- POKEY PLAYER 

A set ol programs that can be used to add music to your 
own Basic programs. Includesdocumentalion. 

ncludes Solitcre, Bmgo, Incoming, Dungeon. Wireball, an 
80 column screenmaker and more. 

Í C023 - VARtETY DISK «1 
selection ol games (I hunderbird.Camel.etc.), and a 


gt^iñs Pl p A rfn?° l II, , s g .g^| L % 20. and ,027 
prlnters, a test for the 835 módem, and a tape and disk 
exerclser. 

A untqua twlst on the popular gme ol pinball Is 
deplcted on this disk. FOR ADULTS f. 

BCQ14 • PRINTSHOP GRAPHICS 

110 piclures to use with Hrintshop. 

BCO. W - PRINTS HOP GRAPHICS Y.QLJ2 

110 piclures to use wilh Printshop. 

BCQ16 • PRINTSHOP GRAPHICS YOL. «3 

,12 piclures to use with Printshop. 

BC0T7 - INSIOE ATARI BASIC 
Thís disk is intended lor use with the book Insíde Atan 
Basic. It contalns mosl ol the demo programs which 
elimínales having to lype in the routinos. 

KSShc checkbook that allows 
to keep track ol all your Checkbook adivines, 

A selection oPgames^including SpeedSkl, Cosmic 
Defender, Harvey, Demon Birds, HighRise, Beamation, 
and more. 

BC020 • UTILITY DISK «3 

A nice assortment ol usolul Utilities including 
Bootbullder. Label Print, Dlrectory Print, Message 
Maker. Time Clock 


Mfiuuuuii ui yoiMoa \ i iiwiisjwi mu «(«>■' 

variety ol demos including GTIA & sound. 


Dog Fight, etc., (Won't work on XL/XÉ) 


BC025 - GAME DISK *4 

ncludes Scrambled bggs, Blockade, Delend, Courting 
Crickets, Knight and some music programs. 

BC026 - GAME DISK «5 „ , 

Sames inelude Yahtzee, Spider, Space Cadet, Juggler, 


Lunar Lander. Stellar Delénse, Animal, and more. 
IC027 


;027 . VARIETY DISK «2 

selection ol several games 


« semuuuii ui games including Crazy Eights, 

bowling, Space Cavems A Mindbuster, a Database, and an 
editor lor SAM. (Req.SAW. program), 


Runaway, Search, Comp III, 
Maza Rider, Hex Puzzle and more. 

1».». P**. 

etc. a cassette copy. a digital dock and a budget program. 

[ncludes Nim, Hamurabi, Gunner, The Price is Right, 
Gomoko. Cannon Dual. Treasure and more. 

031 • MAGIC LANTERN 


m 


.. slide show program lor Koala & Touch Tablet piclures. 
Aulomatically loads and displays all piclures on the disk. 
Indudes an assortenint ol piclures too. 


».y. 

holiday songs Irom the MA.C£. Iibrary. 


BC033 • PRINTSHOP GRAPHICS VOLJL4 

100 piclures to use wuh Printshop. 

BC034 • PRINTSHOP GRAPHICS VOL. »5 

100 piclures lo use with Print Shop. 

BC035 - PRINTSHOP GRAPHICS VOL. «6 

100 piclures to use with PrrntShop. 

BC036 - PRINTSHOP GRAPHICS VQLX? 

100 piclures lo use with PnntShop. 


pad 

induding SUPERMAN, CAREBARE, YODA. GOOFEY, 
MICKEY, UHURA, TWEETY, and more. 


BSS2&& 


UMERIC KEYE 


ette to use with the Atan 


eypad. 


---- ARCHIVE 
., r chive is amel hod ol compresslng and 
optionally combining liles inlo a single *.ARC' 
lile. A great timesaver when uploading and 
downloading larga liles. Disk conlains both the 
ARC and un-ARC programs. 

BC040 • TURBO BASIC & COMPILER 
An improved BASIC with complier. Compatible with most 
Atari BASIC programs. Ineludes complete documentalion 
and several demos. (XL/XE ONLY) 


I. ATARI BAS jC PO WER PAC K 

ies ol BASIC i 


BCQ44 • GAME DISK 08 


Grubs, Matches. Snakes, BATS. Simón, Wildwest, 
Crickets, Láser Barge $ more. 

BC045 - GAME DISK *9 


This disk contains a series ol BASIC routines which are 
designed to be used like macros or run-lime liles 

BC042 - MICRO TALES 81 
Cave Man Joe - A Computer storybook lor chlldren by 
Charlie Parker. 

BC043 - MICRO TALES »2 
The Noisy Giant • A Computer storybook lor children by 


Slarwars Attack, Engull, R-Robot, Sky Diver, Sub War, 
Space Docker AND moré. 

BC046 - ADVENTURE 


An all text gamo simply entltled ADVENTUREI 
BC047 - VARIETY DISK 84 


Electric Company. Programmor aptitude test. Civil War 
simulation, Los; Treasure, Lander, Dog Bile Adventure. 

BC048 • VARIETY DISK fi 


Keycode gives both hex and decimal valuó ol any key 
pressed. Personnal Librarían, Database lile system, 
Calcúlale distance, time, rale. 

BQQ49 - VARIETY DISK.I6 


Family decisión maker, on-screen tlmer, paddle tester, 
Evenl calendar, key slroke decoder. 

BC050 • VARIETY DISK «7 


Player maker holper, Chockwriier, Disk Inspeclr, 
Functlon key ediior, Text Loader, and more. 

BC0S1- UTILITY DISK «4 


Memory map, Quickdos, Color tesler, RPM lesler, Ram 
tesier and more. 

BC052 ■ UTILITY DISK *5 


System statistics, File selector, Polycopy, Disk label 
maker, Formaiter, RPM tester, 

BC0?3 - UTILITY DIS K.M 


Create a borderless screan, Touch Tablet tester, 
Marquee maker, Joystick tesler, Paddle tester, and 
various other Utilities. 

BCQ54 - HOME FINANCJES 


Bargraphs, Ira. Sinking Funds, Business Applications . 
BC055 - VARIETY DISK #8 


Number averaging, Label maker, Gardert Planner, 
Stock solution compuiation 8 various demos, 


BC0S6 - GAME DISK.«10 

Labyrtnth, Robot War, Kai 


amlkaze, Racer, Skullman, 


Simón & Wordwars, 


BC057 - GAMO DISK 011 


Babybox, Hurdler, Lile, Skigame, Moonbase, Craps, 
Keytype, Racecar. 

BC05B- GAME DISK *12 


Hangman, Mazei, Maze2, Slois, Super Quiz Addiilon. 
BC059 • EDUCATIONAL 


Basic add, Subtracl & Multiply. States & Capltals 
lyping tutor, counting by step and more. 


BC060 - VARIETY DISK «9 
Character Editor. Talo maker, Mlcroscope Slage 
Driver, Par and more. 

^e°n 6 kc G k*ack E üS ^Malches, Towers 8 . 
BC062 - GAME DISK 814 


Froggie, Myripede, 8 Warrior 

BC063 • SX212 AMODEM 
A versión ol AMODEM to use with the Atarl SX212 
modem. Indudes handler. 
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TIPIANDO 


JUEGO DEL MES: 


ESTRELLAS 


****** 

GRAN CONCURSO 
VACACIONES INVIERNO 
CON MUNDOATARI 

****** 


Pensando en tus vacaciones, 
MUNDOATARI proporciona una 
interesante actividad para todos 
los amigos lectores de CHILE. 

Nuestro desafío consiste en 
describir el juego del mes, cuyo 
listado se encuentra a continuación, 
usando para ello la siguiente 
pauta de evaluación: 

1. Instrucciones para su manejo 

2. Descripción de las alternativas 

3. Estructura del programa 

4. Técnicas de programación usadas 

Los premios consisten en: 

— Un Plotter 1020 para el ganador 

— Un premio de $ 5.000 en software 
de nuestro Catálogo 

— Cinco premios de consuelo de 
$ 1.000 en software de nuestro 
Catálogo 

*** El plazo de recepción vence 
el día 20 de julio de 1989 *** 

i Participa y gana con MUNDOATARI! 

****** 



O 
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10 REH MMMMMKMK I WMMMMMMMMMMMMMMMHtt t 
28 REH * ESTRELLAS # 

30 REM # * 

48 REH * JUNIO 1989 * 

45 REH # HUNDOATARI * 

50 REH MMMMMMMMMMMMMMMMMMKXMMMMMM ** 

60 GOSUB 2800:GOSUB 1000 
70 POKE POS,WW 
80 IF 5TICK(0)-15 THEN 88 
90 POKE 20,8:POKE 19,0 
100 REH ** HAIN LOOP ** 

105 L5T=5TICK(0):WH=1 
110 IF LST>8 AND LST<12 THEN HH=2 
115 IF LST=13 OR L5T=14 THEN WH=3 
120 POKE POS,HW 

125 TIME=PEEK (20) +256#PEEK (19) : POSITIO 
N 12,23:? U0;INT(TIME/60) 

126 IF INT(TIHE/6i)>308 THEN POP ¡GOTO 
1000 

130 NPO5=POS+20#(LST=9 OR LST=5 OR LST 
=13)-20*(L5T=6 OR LST=10 OR LST=14)-(L 
ST>8 AND L5T<12)+(L5T>4 AND L5T<8) 

135 IF NP0S<5C OR NP05>SC+459 THEN 105 
138 IF PEEK(NPOS+20)=137 AND PEEK(NPOS 
-20)=137 THEN SOUND 0,255,10,10:SCORE= 
0 

140 IF 5TRIG(0)=0 AND STICK(0)<13 THEN 
GOSUB 200'.GOTO 120 

145 IF PEEK(NPOS)=135 THEN G05UB 708:6 
OTO 185 

158 IF PEEK(NPOS)=10 THEN GOSUB 800:GO 
TO 185 

155 IF PEEK(NPOS)O8 THEN GOSUB 500:60 
TO 185 

160 POKE POS,0:POS=NPOS:POKE PQ5,MH:F0 
R X=1 TO FAST:NEXT X 
165 POKE 5i,138:F0R A=125 TO 121 STEP 
-2¡POKE 50,A:NEXT A:POKE SI,8¡POKE S8, 
0 

175 IF STICK(0)=15 OR 5TICK(0)=LST THE 
N 125 

188 GOTO 105 
200 REH 

205 IF STICK (0))8 AND STICK(8)<12 THEN 
308:REH 60 TO LEFT HURDLE 
210 RJMP=19:FQR 1=8 TO 2 
215 IF PEEK(POS-RJHP)<>8 THEN 268 
220 IF PEEK(POS-RJHP+28)=196 THEN JUHP 
=l:POKE (POS-RJMP+20),4+128 
225 POKE POS,8:POKE POS-RJHP,HH 
238 DV=170:HI=94:LO=78:TONE=-2:GOSUB 4 
58 

240 POKE P05-RJHP,8:RJHP=RJMP-l:NEXT I 



;P05=P0S+3 

245 IF PEEK (POS)<>0 THEN P0S=P0S"1:JUH 
P=6:G0T0 245 

250 IF JUHP=1 THEN DIR=-3:GOSUB 400¡JU 
HP=0 

255 RETURN 

260 FOR X=1 TO I:POKE P0S,8:P0S=P0S-1 
262 IF PEEK(POS)<>0 THEN POS=POS+i 
265 POKE POS,5 

270 DU=130:HI=125:L0=75:T0NE=-2:GOSUB 
450-.NEXT X 

275 FOR X=i TO 300:NEXT X:RETURN 
300 REH 

305 LJHP=21:FOR 1=0 TO 2 

310 IF PEEK(POS-LJHP)<>0 THEN 360 

315 IF PEEK(POS-LJHP+20)=196 THEN JUHP 

=l:POKE POS-LJHP+20,4+128 

320 POKE POS,0*.POKE P05“LJHP,HH 

325 Dü=170:HI=94:L0=78:T0NE= _ 2:GOSUB 4 

58 

338 POKE POS - LJHP,0:LJHP=LJHP+1:NEXT I 
:P0S=P0S-3 

335 IF PEEK (POS) O0 THEN P05=P0S+1: JUH 
P=0;GOTO 335 

340 IF JUHP=1 THEN DIR=3:60SUB 408:JUH 
P=0 


20 


MUNDOAT AR I 










TIPIANDO: continuación 



345 RETURM 

368 IF P0S+l)SC+455 THEM POP ¡GOTO 385 
365 FOR K=i TO I 

370 POKE PO5,0:POS=PO5+1:IF PEEK(P05>< 
>0 THEM P05=P05+1¡GOTO 380 
375 POKE P05,5 

388 00=138¡HI=125 S L0=75¡T0ME=-2¡G05UB 
450 

385 POKE POS,5¡FOR X=1 TO 380¡MEXT M¡R 

ETURN 

480 REM 

418 POKE P0S+0IR,21 

420 FOR X=1 TO 75¡«EXT X¡POKE POS+OIR, 

0¡5C0RE-5C0RE+5 

430 RETURH 

450 REH *** COMMON 50UND ROUTINE ** 

468 POKE 51,DO¡FOR A=HI TO LO 5TEP TOM 

E¡POKE 50,A¡MEXT A 

470 POKE 51,0¡POKE 58,0¡RETURM 

500 REM 

510 POKE POS,5 

515 FOR X=1 TO 2 

520 00=138¡HI=125:L0=75:T0ME=-2:G05UB 
450 

538 IF POS*20>5C+455 THEM POP ¡GOTO 55 


8 

548 IF PEEKCP05+28)=8 THEM POKE P05,8¡ 
P05-P05+28:POKE POS,5 
545 MEXT X . 

558 IF STICK(9)=15 THEM 550 
560 RETURM 
600 REH 

610 X=0¡FOR 1=1 TO 3 

620 REAO A¡IF A=-l THEM K=255¡G0T0 620 

625 IF A=-2 THEM RETURM 

638 POKE 5C+X+A,135¡MEXT I¡RETURM 

650 OATA 54,247,66,92,144,197,82,178,- 

1,7,-1,54,82,126,-2,-2,-2 

700 REH 

710 POKE POS,0¡F ALL=F ALL+1 

720 00=170:HI=25¡L0=250:T0NE=4¡GOSUB 4 

50 

730 IF FALL=2 THEM POP ¡GOTO 1008 

740 Mi=l¡POKE 5C+48,0:POKE 5C+437,10 

758 P05=SC+61:P0KE P05,MN 

760 IF STICK(8)=15 THEM 769 

770 RETURM 

800 REH 

885 IF MP05=SC+48 THEM 850 

810 POKE POS,8¡P05=MP0S¡POKE P0S,HH 

820 DU=168¡HI=20¡L0W=128¡TOME=20¡GOSUB 

458 

830 IF LAP=2 THEM GOSUB 600¡GOSUB 608 

840 BOT=l:POKE SC+48,10:RETURN 

850 IF BOT=0 THEM RETURM 

860 LAP=LAP+1¡IF LAP=J THEM POP ¡GOTO 

1000 

870 POKE POS,0:P05=MP0S:POKE P05,HH 
875 00=168¡HI=20¡L0H=128¡TOME=20¡GOSUB 
450 

888 GOSUB 600¡FA5T=FAST-11¡POKE 77,9 
885 6OT=0:POKE SC+437,18 
890 FOR I=SC*303 TO SC+311 5TEP 4¡POKE 
1,196¡MEXT I¡FOR I=5C*425 TO SC+433 S 
TEP 4¡POKE 1,196¡MEXT I 
895 RETURM 
900 REH 

585 TIK=IMT CTIHE)/60:RATE=3 

915 IF FALL=2 OR TIM>140 THEM RATE=5:G 

OTO 950 

920 IF FALL=1 OR TIM>125 THEM RATE=4¡G 
OTO 950 

925 IF 5C0RE>54 AMO TIH<138 THEM RATE= 
2 

530 IF SC0RE>79 ANO FALL=0 ANO TIM<110 
THEM RATE=1 

959 RESTORE 980¡FOR 1=1 TO RATE:REAO R 
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TIPIANDO: continuación 


$:HEXT URETURH 

980 DATA ESTRELLA ,VICECAMPEOH ,BRQHC 
E ,COBRE,ULTIMO 
1880 REM 

1005 GRAPHICS 17:POKE 7 56 l BEGIH/2 56 
1810 POSITIOH 4,3:? l» y 'HHan*}":I p T 
IME-0 THER 1038 

1015 P05ITI0N 3,7:? H6;"T0TALE5 = " 
;LAP:P05ITIOH 9,9:? ttt;"TIEMPO= "JlRTÍ 
TIME/60) 

1828 POSITIOH 8,11:? B6;"PUHT0S = "J5C 
ORE 

1022 GOSUB 900 

1824 POSITIOH 3,13:? H6;"EVALUA:»:P05I 

TIOH 5,16:? 1»;R$ _ 

1030 POSITIOH 2,23*.? 1*6;"PULSE SEEU 

II 

1035 FOR X=8 TO 19:P0SITI0H X,19:? H6J 

CHRÍCl) 

1048 FOR 1=1 TO 15:IF PEEKC53279>=6 TH 
EH POP :GOTO 1090 

1043 HEXT I:50UHD 0,100,8,0:SOUHD 0,0, 
0,B 

1045 POSITIOH X,19:? H6;" ":HEXT X 
1850 FOR X=19 TO 0 STEP -1'.POSITIOH X, 
19:? tt6;CHR$(2) 

1055 FOR 1=1 TO 15-.IF PEER (532791 =6 TH 
EH POP ‘.GOTO 1090 

1060 HEXT I:SOURO 0,10O,8,8:SOUHD 0,0, 

0,0 

1065 POSITIOH X,19:? H6;" "¡HEXT X 
1070 GOTO 1035 
1098 IF P0S=5C*6i THEH 1899 
1095 GOSUB 2070'.GOTO 70 
1899 GOSUB 2070:RETURH 
2000 REM 

20O5 DIM CH$(321,R$(13)¡RESTORE 2015 
2010 FOR 1=1 TO 32:READ A:CH$(I)=CHR$ ( 
A):HEXT I 

2015 DATA 104,104,133,284,104,133,203, 
184,133,206,184,133,205,162,4,160,0 
2020 DATA 177,203,145,205,130,288,249, 
230,204,230,200,282,200,240,96 
2025 POKE 106,PEER(106)"5:GRAPHIC5 0:6 
EGIH=(PEER11061n>*256:POKE 756,BEGIH/ 
256 

2038 A=USR(ADR(CH$),57344,BEGIH) 

2040 RESTORE 2045¡FOR I=BEGIH*8 TO BEG 
IN+87:READ A:POKE I,A¡HEXT IsRETURH 
2045 DATA 3,3,6,6,7,6,14,17 
2847 DATA 192,192,96,96,224,96,112,136 
2849 DATA 32,36,36,24,24,36,36,4 


2851 DATA 1,3,5,9,16,16,16,16 
2853 DATA 8,136,126,29,28,20,35,64 
2855 DATA 66,255,66,255,66,255,66,255 
2857 DATA 62,63,k*5,248,126,154,240,63 
2059 DATA 60,120,254,248,254,62,31,255 
2061 DATA 16,56,56,124,124,254,16,16 
2063 DATA 8,24,56,128,8,8,8,8 
2070 GRAPHICS 17¡POKE 756.BEGIR/256:RE 
STORE 2075¡FOR X=0 TO 4¡READ A:POKE 70 | 
8+X,A:HEXT X 

2075 DATA 252,8,194,156,22 

2080 POKE 559,0:5C=PEEK(88)*256*PEEK(8 

9) 

2885 SC0RE=8:LAP=8:FA5T=28:JUMP=0:NH=1 
:FALL=0:8OT=0:P05=SC+61:50=53760:51=53 
761 

3008 REM *** DRAM SCREEH **« 

3010 RESTORE 3858:X=8 

3028 READ A¡IF A=~l THEH X=255 

3830 IF A=-2 THEH 4000 

3048 POKE SC+X*A,72:G0T0 3020 

3049 REM 

3050 DATA 0,1,2,3,4,5,6,17,18,19,27,28 
,30,39,48,49,50,59,00,81,95,96,182,103 
,184,105,186,114,126 

3860 DATA 127,128,129,130,131,132,133, 
134,182,183,104,105,186,188,189,202,20 
3,209,210,211 

3078 DATA 222,231,232,233,251,254,255, 

-1,1,2,17,19,23,40,41,90,109,118,111,1 

16,117,132,134,135,138,139 

3080 DATA 165,184,185,186,203,204,205, 

286,207,222,223,224,-2 

4008 FOR I=SC+9 TO SC+16:P0KE 1,137:HE 

XT l:FOR I=5C*120 TO SC+488 STEP 40:PO 

KE 1,137:HEXT I 

4010 FOR I=SC+79 TO 5C+439 STEP 48:P0K 
E 1,137¡HEXT I:RE5T0RE 4040:X=8 
4820 READ A:IF A=“l THEH X=255:G0T0 40 

20 

4825 IF A=-2 THEH 4050 

403O POKE 5C+X+A,137¡GOTO 4020 

4048 DATA 186,188,207,214,225,-1,88,11 

3,209,228,-2 

4050 POKE 5C+437,10 

4060 FOR I=5C+303 TO SC+311 STEP 4:POK 

E 1,196¡HEXT IíFOR I=SC+425 TO 5C+433 

STEP 4:POKE I,190:HEXT I 

4870 P0KE 5C+92,135:POKE 5C+355,135:P0 

KE SC+156,135 

4080 POSITIOH 6,23:? «6;"TIME: " 

4099 RESTORE 658¡POKE 559,46'.RETURH # 
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PROGRAMAS 


Printer Driver 
para PANASONIC 


MUNDOATARI tiene disponible 
el diskette que incluye la defini¬ 
ción de Printer Driver para todos 
los nuevos usuarios de esta im¬ 
presora. 

Convención para su uso: 

á : useCTRL/a 
é : useCTRL/e 
í : use CTRL/i 
ó : use CTRL/o 
ú : use CTRL/u 
ñ : use CTRL/n 
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EQUIPOS 


Plotter ATAR11020 


Para los lectores que tienen en 
su configuración sólo una case- 
tera como periférico, MUNDO- 
ATARI proporciona una impre¬ 
sora Plotter de bajo costo, con 
caracteri'sticas gráficas y 4 co¬ 
lores, que les permitirá iniciarse 
en el mundo de las aplicaciones 
utilitarias. 

Sus principales carácteri'sticas 
se muestran en los gráficos in¬ 
feriores. 

Venga a Los Leones 308 y 
adquiera esta excelente oferta 
hasta agotar stock. 

Precio: $ 14.990.- 


q/R otate 
31U10*g 

H 

H> 

—I 

m 






























































Aritmetrix 


La columna Educación de MUNDO A TARI de este 
mes contiene una aplicación de trucos matemáti¬ 
cos que implican algoritmos y que servirán de en¬ 
tretención para ustedes y sus amigos 


La técnica aplicada a los computadores per¬ 
mite el desarrollo de aplicaciones que usted sabrá 
desarrollar en el momento oportuno. 

MUNDO ATAR I recibe estas aplicaciones y es¬ 
timulará el esfuerzo publicándolas con un premio 
especial. 


100 REN ARITHMETRIX 


IMUNDOATQRII 


110 REN 
120 REN 

138 DIN LINES (48), R$U> ,C$Ci) :GQ5UB 79 
0:GOTO 270 

170 PONE 752,1:LM=INT(19~LEN(LINES)/2) 

:Y=Y+2:IF Y<24 THEN 190 

180 JIFFY=120:6O5UB 760:? CHR$C125):Y= 

2 

190 FOR DI5PLAY=1 TO LEN(LINES):X=LM+D 


I5PLAY 

200 CS=LINE$(DI5PLAY,DI5PLAY):IF CS="0 
" THEN CSr"," 

210 P05ITI0N X f Y:? CS;¡NEXT DI5PLAY:RE 
TURN 

220 FOR LINE=1 TO LINES:READ LINES:605 
UB 170 

238 FOR DING=4 TO 0 STEP -1:SOUNO 0,LI 
NE, 2,£>ING:NEXT OINGsNEXT LINE:RETURN 
240 REN 
2S0 REN 
260 REN 

270 Y=0:LINE5-10:GOSUB 220:? :G05UB 66 
O 

280 REN 

290 REN PRIMER ALGORITMO 
300 REN 

310 LINE5=2:G05UB 228:GOSUB 820 
320 N-5QR (RESULTAD ¡GOSUB 920 
330 REM 

340 REN SEGUNDO ALGORITMO 
150 REN 

360 LINES=2:GOSUB 220 

370 POKE 752,0:? :PGKE 764,255:INPUT R 

S 
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EDUCACION: continuación 


388 IF R$C1,1) <>"0" AMD R$(i»l) O''^" T 

HEN RLINE=410:GQTO 838 

399 IF R$="0 n THEN RESTORE 1120 

409 IF R$="E" THEM RESTORE 1130 

410 LINE5=1:GQSUB 220 

420 RE5TQRE 1148:LINES=3:GQ5UB 220:GO5 
U6 828 

438 IF R$(i,l)="0" THEM N=2*RE5ULT+1 
440 IF R$(1,1)="E" THEM N=2*RESULT*2 
450 GOSUB 920 

460 REM 

478 REH TERCER ALGORITMO 
488 REM 

498 LIME5=4:G05UB 220¡POKE 752,0:? 

580 TRAP 838:RLIME=510:POICE 764,255:IM 
PUT A 

510 LINE5=2:GOSUB 220:POKE 752,0:? 

520 TRAP 830:RLINE=538:POKE 764,255:IM 
PUT B 

530 LINES=2;GOSUB 220¡POKE 752,0:? 

540 TRAP 830:RLINE=550:POKE 764,255:IM 
PUT C 

558 S=40*A+45*B+36*C:Q=S/60: Z- (Q-INTCO 
))*60:M=IMT(Z+0.05) 

560 TRAP 40000¡GOSUB 920 
570 REM 

580 REM CUARTO ALGORITMO 
590 REM 

680 LIMES=11:GOSUB 220:FIMAL=1 
610 INPUT R$:M=1089:? CHR$(125)¡? :GOS 
UB 920 
620 REM 

638 REM QUIMTO ALGORITMO 
640 REM 

658 LIMES=6:GOSUB 220 

660 POKE 764,255:IMPUT R$:M=18:? ¡DOME 

-líGOSUB 920 

670 REM 

680 REM FIM DE PROGRAMA 
698 REM 

708 GRAPHICS 0:POKE 764,255:? :? "BA5I 
C"¡? "E5";:EMD 
718 REM 

720 REM SUBRUTIMAS 
730 REH 

740 FOR DIMG=8 TO 0 STEP -2:S0UND 0,0, 

2,DING:NEXT DIMG:RETURM 

750 FOR BONG=4 TO 0 STEP -8.1:S0UMD 0, 

182,12,BONG;MEXT BONG;RETURM 

760 POKE 540,JIFFY 

778 IF PEEK(540) THEM 770 

780 RETURM 

798 GRAPHICS 8:C=INT(RND(0)#16> 


800 SETCOLOR 2,C,2¡SETCOLOR 4,C,2:SETC 
OLOR 1,C,12 
810 RETURM 

820 ? :LIME$="IMGRE5E EL RESULTADO PUL 
SE RETURM"¡GOSUB 170¡GOTO 858 
830 ? :LIME$="YO NO ENTIENDO ESO 
¡GOSUB 178¡GOSUB 758:IF RLINE THEM GOT 
O RLINE 
840 GOTO 820 

850 POKE 752,0:? ¡TRAP 830¡POKE 764,25 
5:INPUT RE5ULT!RETURM 
860 POKE 752,1:? ¡? " PULSE 5TART 
Y CONTINUA :GOSUB 740 
870 IF PEEK(53279106 THEM 870 
888 IF PEEK(53279)=6 THEM 880 
890 IF DOME THEM RETURM 
988 GOSUB 790¡GOSUB 910¡RETURM 
910 Y=-l:LlNE$="5elecione un minero en 
tero positiVO":G0SUB 178:G0SUB 748:RET 
URN 

928 POKE 752,l:IF FINAL THEM 948 
938 ? !? " SU NUMERO ORIGIMAL ES 
";M:GOSUB 860'.RETURM 
940 ? :? " EL RESULTADO FIMAL ES" 

;N:GOSUB 868:RETURM 
950 REM 


iLISTflDQ DE DáTQSI 


970 REM 

988 DATA ARITHMETRI 

990 DATA Este prograna denuestra cinco 
1080 DATA trucos sinples nunericos.Cad 
a caso 

1018 DATA eli je un nunero positivo ent 
ero 

1820 DATA y lo escribe 
1O30 DATA El prograna te pregunta para 
hacer 

1848 DATA cálculos e ingresar resultad 
os. 

1050 DATA ARITHMETRI proporciona luego 
el 

1060 DATA valor del nunero original o 
1870 DATA el resultado de los cálculos 
1880 DATA Multiplica (HUMERO +1) 

1090 DATA por (HUMERO - 1) 

1188 DATA Multiplica tu NUMERO por 3 1 
uego 

1118 DATA el resultado es par o inpar 
1120 DATA Agrega 1 al resultado y divi 
de por 2. 

1138 DATA Divide el nuevo resultado po 
r 2 e 

1140 DATA Multiplica por 3e resta 60 
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EDUCACION: continuación 


1158 DATA luego divide por 9. 

1168 DATA Disgregado y resto 

1170 DATA En este Monento el numero de 

be ser 

1188 DATA menos que 68. 

1198 DATA Divide el numero original po 
r 3 entonces 

1288 DATA ingresa el resto 

1218 DATA Divide tu numero original po 

r 4 y 

1220 DATA ingrese el resto 

1230 DATA Divide tu numero original po 

r 5 y 

1240 DATA ingresa el resto 

1258 DATA En este momento use tres dig 

itos 

1268 DATA La diferencia entre el 
1278 DATA primer y ultimo dígito debe 
ser mayor 

1288 DATA que 1. Invierta el orden d 
e tus 

1298 DATA números y designa como RESUL 
TAD01 

1388 DATA Encuentra la diferencia entr 
e 

1318 DATA el numero original y RESULTA 
DOie y 

1320 DATA designa como RESULTAD02.Invi 
erte los 

1336 DATA dígitos de RESULTAD026 y des 
ignalo 

1340 DATA RESULTADO!.Agrega RESULTAD02 
a 

1358 DATA RESULTADO! y pulse RETURM. 

1360 DATA Nultiplics tu numero por 6 y 
agrega 36. 

1370 DATO Divide el resultado por 28 y 
designa 

1388 DATA RESULTADO 1. multiplica el 
numero 

1390 DATA original por 38 y desígnalo 
1408 DATA RESULTAD02.Restale RESULTADO 
1 

1410 DATA y pulse RETURM. 
--- 

Vamos al programa. El contiene 5 algoritmos: 

- ALGORITMO í 

Usted debe pensar un número entero, por 
ejemplo el 5. 

El trabajo matemático consiste en: 

a) multiplicar el número —1 (5-1) por el 
número + 1 (5 + 1) 


(5 — 1) * (5 + 1) 

4*6 

24 

Como respuesta debe digitar el 24. 

El ATARI piensa mediante el algoritmo y 
encuentra el resultado. 

- ALGORITMO 2 

Usted debe pensar un número entero, como 
por ejemplo el 5. 

a) Multiplicar el número por 3 (5 * 3) 

b) Indicar si el resultado es par o impar. En 

el caso de ser par conteste con la letra E, 
si es impar conteste con 0. , 

c) Agregar 1 al resultado. 

d) Dividir por 2. 

e) Multiplicar por 3. 

f) Restar 6. 

g) Dividir por 9. 

h) Eliminar la fracción. 

Ahora vemos las operaciones matemáticas: 

a) 5*3 = 15 

b) 0 = impar 

c) 15 + 1 =16 

d) 16: 2 = 8 

e) 8 * 3 = 24 

f) 24-6=18 

g) 18: 9 = 2 

h) El resultado es 2. 

El ATARI comunicará que el resultado es 2. 

- ALGORITMO 3 

Piense inicialmente el mismo número entero 5. 

a) Dividir el número por 3 (5 : 3) 

b) Ingresar el resto. 

c) Dividir el número por 4 (5 : 4) 

d) Ingresar el resto. 

e) Dividir el número por 5 (5 : 5) 

f) Ingresar el resto. 

El ATARI entrega el resultado: 

a) 5 : 3 = 1, lo que sobra es 2 (resto). 

b) El resto es 2. 

c) 5 : 4 = 1, lo que sobra es 1 (resto). 

d) El resto es 1. 

e) 5 : 5 = 1, lo que sobra es 0 (resto) 

f) El resto es 0. 

Ahora amigos, un desafío para ustedes, como 
estímulo para incentivar la correspondencia con 
nuestra editorial: 

Describa los 2 algoritmos siguientes y escriba a 
nuestra casilla 16.005 Providencia, Santiago. 

Hasta el próximo mes con un nuevo e inte¬ 
resante tema educacional para su ATARI. # 
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CASSETTE 



Inventario para casetera 


En este número tenemos una interesante aplica¬ 
ción para casetera, que permite realizar un inven¬ 
tario de muebles, máquinas o bienes en la forma 
de un archivo compacto, suficiente para aproxi¬ 
madamente 60 ítems. 


Al ejecutar el programa aparece un menú con 
4 opciones: 

- ingresar Ítems 

- listar Ítems (leer archivo) 

- salvar ítems (grabar en casete) 

- cargar Ítems 

La. primera opción dispone de un string de 
almacenamiento (S$) de 6000 caracteres y de uno 
de traspaso (D$) de 40 caracteres de capacidad. 

Permanentemente se informa por pantalla la 
capacidad disponible en S$. Luego se pregunta por 
la descripción del ítem, modelo, número de serie, 
fecha de compra y su valor. 

Si al requerir descripción del ítem usted pre¬ 


siona sólo la tecla RETURN el programa salta al 
menú principal. 

La opción de lectura de Ítems analiza todo el 
contenido de S$. 

En otros programas que manejan archivos se 
asigna un espacio predeterminado a cada registro, 
sin importar si éste se ocupará completamente o 
no. La lectura se ejecuta entonces mecánicamente, 
saltando de bloque en bloque según los espacios 
definidos. 

La diferencia fundamental de este programa' 
con los otros es que almacena la información en 
forma compacta, sin dejar espacios en blanco.. 
Cada registro está separado del siguiente por un 
signo y cada ítem termina con el signo"#". 
Luego el programa usa estos signos para presentar 
la información contenida en S$. 

Las últimas 2 opciones son fáciles de enten¬ 
der y están identificadas con REM. 

Es interesante conocer la técnica empleada 
en este programa ya que ofrece interesantes po¬ 
sibilidades para otras necesidades particulares de 
nuestros lectores. 
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CASSETTE 


INVENTARIO****-» 


6 REM a 3 

7 rem ¿ i 

8 DIM 5$(6901),D$ C48):C8=0:Cl=l:C18=18 
: C28=28: MENUE=1000: 5$ (C1, Cl) ="; •• 

9 OPEN «2,4,C0,"K¡" ¡GOTO HENUE 

18 P05ITI0N C18,2:? " INVENTARIOS ":? 
:? :RETURN 

28 S$(LEN(5$)+C1)=0$:5$(LEN C5$> *01)="; 

"¡RETURN 

188 GRAPHICS C 8 

J0i P05ITI0N C10,C20:? "MENORIA LIBRE 
= ";6801-LEN(5S):? :? » PULSE Q 
M SIN INGRESO "¡GOSUB C18 
318 ? "ITEM:";¡INPUT D$:IF D$="" THEN 
GOTO MENUE 
315 GOSUB C20 

32B ? :? "MODELO:";¡INPUT D$:G05UB C28 
338 ? ;? "t* 5ERIE :";:INPUT D*:GOSUB 
C20 

348 ? :? "FECHA CONPRA :";:INPUT »$:G 
OSUB C20 

358 ? :? "VALOR : ¡INPUT D$:GOSUB C 

28 

398 D$="#"¡GOSUB C28:REM FIN PAGINA 
395 IF LEN(5$)>5988 THEN ? " FIN DE ES 
PACIO DISPONIBLE ":FOR 1=1 TO 980: 
NEXT I:GOTO MENUE 

399 GOTO 188 

488 REM LISTA INVENTARIO 
405 IF LEN(5$)<C28 THEN GOTO MENUE 
410 GRAPHICS C0:POKE 752,C1:N=C1:L=C1 
415 5ETC0L0R 2,12,4:SETC0L0R 4,12,4 
420 GOSUB C10:? "ITEM #";N 
508 FOR I=C1 TO LEN(5$)-C1 
510 IF 5$(1,1)=";" THEN ? :? :0N L G05 
UB 558,568,578,580,590,595:L=L+C1:NEXT 
I 

515 IF 5$CI,I)="IT* THEN 530 

520 ? 5$(1,1);¡NEXT I¡GOTO 540 

530 POSITION 5,C20:? "PULSE pa 

RA ITEM ?*"¡GET 82,T:N=N+i¡? "«"¡GOSU 

B C10:? "ITEM tt";N:NEXT I 

540 ? "«"¡POSITION C10,C10¡? "FIN DE I 

NVENTARIO ":FOR I=C1 TO 800:NEXT I:G 

OTO MENUE 

550 ? "ITEM: ";¡RETURN 
568 ? "MODELO! "; ¡RETURN 
570 ? "II SERIE ¡ "; ¡RETURN 
580 ? " FECHA COMPRA: ";¡RETURN 
590 ? "VALOR: $";¡RETURN 


595 L=C 8 ¡RETURN 

688 REM SALVA RUTINA INVENTARIO 
601 IF LEN (5$) <C28 THEN GOTO KNUE 
605 ? :? " POSICION CASETE PARA SALVAR 
"¡? " PULSE PLAY & RECORD Y ÍTárfHrri •• 
610 OPEN HC1,8,C8,"C¡" 

630 ? UC1J5S 
640 CLOSE «Cl 

650 ? " INVENTARIO SALVADO CASETE " 
668 FOR 1=1 TO 800:NEXT I 
699 GOTO MENUE 
800 REM CARGA INVENTARIO 
805 ? :? " UBIQUE CASETE PARA CARGAR 
"¡? " PULSE PLAY Y ÍTálll.-I.'l " 

818 OPEN NC1,4,C0,"C:":TRAP 850 
815 5$=""¡REM LIMPIA 5TRING 
820 FOR 1=1 TO 6080 
838 GET «I,A 

848 5S(LEN(5$)+1)=CHR$(A):NEXT I 
850 CL05E »l:5$=S$(l,LEN(5$)-l) 

868 ? " INVENTARIO CARGADO DEL CASETE 


870 FOR 1=1 TO 1880:NEXT I 
899 GOTO MENUE 
1080 GRAPHICS 2¡PONE 752,Cl 
1018 ? 116;" INVENTARIO 

1828 ? i»:? »6;"(fl) ffi031EMI0»' 

1830 ? 116:? »6;"(2) LISTADO ITEN5 " 


1840 ? 116:? 116;"(8) 
1058 ? Ü6¡? U6;"(4) 


a Iva ítews 


carga itens 


1855 ? :? " 


dígita minero selección 


1060 GET »2,R 


1070 ON R-48 GOTO 100,400,600,800 
1080 GOTO MENUE 
2080 END 


SUGERENCIAS: 

La rutina descrita en esta columna ganaría 
mucho al complementarla con un paso interme¬ 
dio que permita validar la información de cada 
ítem, antes de almacenarla en el string S$. En 
otras palabras, interesa que la información in¬ 
gresada permanezca en un string auxiliar 0K$, 
a la espera que el usuario de su visto bueno a 
los datos digitados, previo al traspaso al string 
de almacenamiento. 

Una sugerencia alternativa es la de crear 
una opción de corrección de datos en el S$. 

La solución definitiva la tiene en todo caso 
en sus manos, amigo lector. 

Animo. 0 
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Shematic 

Designer 
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El programa descrito en esta ocasión permite di¬ 
bujar en pantalla circuitos esquemáticos de insta¬ 
laciones eléctricas y planos electrónicos. Para car¬ 
garlo se debe encender el computador mantenien¬ 
do presionada la teda OPTION. 

El programa trabaja con joystick o con lápiz 
de luz para el trazado de líneas de conexión entre 
los símbolos. También puede borrar pasando el 
cursor sobre el área deseada desde el modo de 
borrado. 

Para trazar líneas se destaca el cursor por me¬ 
dio del botón rojo del joystick. 

Los principales controles son: 

OPTION/E: Modo de borrado. Al pasar el cursor 
activado sobre el área deseada va eliminando 
lo trazado. Puede requerir varias pasadas para 
limpiar totalmente el área. 

OPTION/C: Cross. Cambia el color del cursor, vol¬ 
viéndose invisible. 

OPTION/D: Salida al DOS. 

OPTION/H: Help. Muestra pantalla con los sím¬ 
bolos incluidos y los códigos de llamada. Ade¬ 
más indica con la letra B si los símbolos pue¬ 
den d-ibujarse en sentido vertical y horizontal, 
con la V sólo en sentido vertical, los que no 
tienen indicación sólo en sentido horizontal. 
OPTION/L: Load. Carga archivo con diseño hacia 
la pantalla. 

OPTION/P: Print. Envía esquema de pantalla ha¬ 
cia la impresora. 


OPTIONAV: Write. Permite escribir en el esquema 
los letreros correspondientes. 

OPTION/S: Save. Permite grabar el circuito en un 
archivo en disco. 

OPTION/Z: Zoom. Permite ampliar una zona del 
esquema y efectuar correcciones. Para salir de 
esta opción se usa la tecla RETURN. 

OPTION/F: Find line. Ubica exactamente el cur¬ 
sor sobre una línea con el propósito de pro¬ 
longarla. 


NOMENCLATURA: 


A 

and 

N 

: receptáculo 

B 

batería 

0 

: or 

C 

capacitor 

P 

: cristal 

D 

diodo 

Q 

: transistor 

E 

antena 

R 

: resistor 

F 

fusible 

S 

: interruptor 

G 

tierra 

T 

: transformador 

H 

inversor 

U 

: op-amp 

1 

IC 

V 

: flecha 

J 

parlante 

w 

: diodo (R) 

K 

micrófono 

X 

: ampolleta 

L 

led 

Y 

: terminal (not) 

M 

medidor 

Z 

: zener 

BARRA ESPACIADORA 

: conexión 


El transistor puede ser de los siguientes tipos: 

1 

: PNP 

4 

: feet-P 

2 

: NPN 

5 

: UJT 

3 

: feet-N 


• 
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APLICACIONES 


COLABORACION 
PARA TURBO BASIC: 


Graficador XL1 


MUNDOATARI acoge una interesante colabora¬ 
ción enviada desde Temuco por don Mario A. Vi- 
llarroel, quien ha aprovechado tas ventajas del 
lenguaje TURBO BASIC. 

Recibe un premio de $ 5.000 en software a 
elección de nuestro Catálogo. Felicitaciones. 


El programa presenta un menú con 4 opcio¬ 
nes: 

1. Gráfica funciones de primero, segundo y ter¬ 
cer grado y muestra tabla de valores. 

2. Gráfica sistema de ecuaciones en el plano y 
muestra tabla'de valores. 

3. Calcula distancia entre 2 puntos en el plano y 
lo muestra gráficamente. 

4. Detiene el programa. 

Comentario de líneas: 

0-95 Portada. 

100-220 Menú. 

1000-1230 Gráfico de ecuaciones de primero, se¬ 
gundo y tercer grado. 

1300-1500 Dibujo del gráfico. 

2000-4999 Datos para el dibujo de la ecuación. 
5000-5470 Gráfico del sistema de ecuaciones. 
10000-10240 Distancia entre 2 puntos. 


0 »XN A$(1),Y(13,1),Yi(13,l){0=112 
10 GRAPHIC5 0*16:COLOR 1:SETCOL0R 1,0, 
14SP0KE 752,itSETCOLOR 4,3,12 
20 TEXT 50,0,"Mario Añares Vi11arroe1 
Gane" 

22 text i30,i0,’tcBa3axr 

25 TRAP 00 


30 F0R 1=160 T0 2 5TEP -2:0=B-J 
40 CIRCLE 160+A,T,B,45:NEXT 1 
50 TEXT 07,132," 

60 TEXT 07,140," 


00 

II 


70 TEXT 07,140," 

00 TEXT 30,105. 5TART 


:■ ri 1 1 n u a r 


M 


ara c 


50 IF PEER(53279)=6 TNEN 100 
95 GOTO 90 

100 GRAPHICS 0:SETC0L0R l,0,14tSETCOLO 
R 4,3,12:P0KE 752,1 

101 0R=PEEKCS60)+PEEK(S61>«256 

102 P0KE DR+23,7 



120 P0SITI0M 17,3:? ‘ HM.'BIE ' 

130 P0SITI0N 12,5:? ’fl Y=((X A b)nA)*B M 
140 P0SITI0M 12,6:? " ■ 

150 P0SITI0N 12,7J? " C" 

160 P03ITX0H 12,5:? Sist. de Ecuaci 


ones" 


170 P05ITI0M 12,11:? Oist. entre 2 
Ptos." 


175 P0SITI0N 12,13:? 'ti Terninar" 
160 P0SITI0N 2,10:? 


190 P0SITI0M 33,20:? ' fflJéfel.'B "jiIMPUT 
" ", A$ 


155 IF A$="l" THE0 1000 

200 IF A$="2" THEN 5000 

210 IF A$="3" THEH 10000 

220 IF A$<>"1" 0R A$<>"2" 0R A$<>"3" T 

HEN GRAPHICS 0:EM0 


1000 GRAPHICS 0:SETCOLOR 1,0,14:SETCOL 
0R 4,3,12:P0KE 752,0 
1010 POSITIOtt 0,0:? *1 


1020 P0SITI0M 0,2:? "Inórese los valor 


es de:" 

1025 TRAP 1060 

1030 POSITI0M 0,4:? "b: ";:IHPUT Al 
1040 P0SITI0M 0,5:? "A: "J:INPUT A2 
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APLICACIONES: continuación 



“ 

me position o,6:? "B: "iünput ai 


1380 TEXT 158,0,"Y"¡TEXT 312,85,*X" 


me position o,7¡? "C: ";¡input A4 


1400 NEXT T:L=0 


1070 coto neo 


1410 FOR X=~6 TO -1 STEP 41¡TEXT 0*L,9 


1080 COTO 1025 


0,X:L-L*25:NEXT X¡L=0 


1100 PONE 752,1 


1420 FOR X=1 TO 6¡TEXT 1834L,98,X¡L=L4 


1110 POSITION 15,Ji? 


25:NEXT X 


1120 ? ,*fl",H»:H=o 


1430 L=0:HR=0!YH=AB5IY»IAX45) 


11X0 F0R X=~6 T0 6:H=H*l!VCH,ll=CCCKAA 


1440 FOR X=1 TO 6¡TEXT 165,6+L,CCYH-HH 


1)*A2)*A3I/A4 


>J:HM=HH+(ABS((YMJ/61) ¡L=LU2.6¡NEXT X 


1140 ? ,H,YCH,1J íNEKT K 


1450 L=0:F0R X=1 TO 6¡TEXT 166,95*L,-C 


1150 POSITION 2,4:? Al 


tCYH/6>*XJ)¡L=L*12.5¡NEXT X 


1151 POSITION 2,5:? A2 


1500 RETI1RN 


1152 POSITION 2,6í? AI 


2000 LK=85-CIY«1,11*75I/Y»:PL0T 10,LK 


1153 POSITION 2,7:? A4 


2010 L=0¡F0R Z=2 TO 13¡LL=YCZ,1)»75¡LIC 


1160 POSITION 6,20*? 'lamffilll START 


=LL/YH¡ORARTO 354L,85-LK¡L=L425:NEXT Z 




2020 TEXT 50,180,'iaZEDDiQi 5TART OHE 


1161 IF PEEKC53279)=6 TNEN 1200 


MdiMliHEH" 


117» COTO 1160 


2030 IF PEER C532791 =6 THEN 100 


1200 IF YC1,1»YC13,1> THEN YHAX=Y<1,1 


2040 COTO 2030 


» 


2050 COTO 2040 


1210 IF YCl,i)<YC13,1I THEN YHAX=Y«13, 


4999 COTO 4999 


1) 


5000 GRAPHICS OíSETCOLOR 1,8,14¡SETC0L 


1220 IF YC1,1)=YÍ13,11 THEN VHAX=YC13, 


OR 4,3,12 


1) 


5010 position 0 , 0 :? 


1230 C0SI1B 1300: COTO 2000 




1300 CRAPHICS 8+16:COLOR ltSETCOLOR 4, 


5020 POSITION 0,2¡? "Ingres# los valor 


3,12:SETC0L0R 1,0,14 


es 4o la ecuación 1" 


1310 PLOT 160,10:0tARTO 160,160 


5025 TRAP 5080 


1320 PLOT 10,05:DRAMT0 310,05 


5030 POSITION 0,4¡? "b: "¡¡INPUT Al 


1330 FOR T=0 TO 10 


5040 POSITION 0,5¡? "A¡ "¡¡INPNT A2 


1340 PLOT 155,10:BRAHTQ 155*T,18lPL0 


5050 POSITION 0,6¡? "B¡ "¡¡INPUT AI 


T 155,23:BRANT0 1554T,23¡PL0T 155,35:0 


5060 POSITION 0,7¡? "C: "¡¡INPUT A4 


HARTO 155?T,35¡PL0T 155,40 


5070 GOTO 5100 


1345 ORARTO 155+T,48¡PL0T 155,60:0RA 


5080 COTO 5025 


UTO 1554T,60:PL0T 155,73:0RART0 155*T, 


5108 POKE 752,1 


73 


5110 POSITION 15,3:? 


1350 PLOT 155,98¡BRART0 155*T,98:PL0 


5120 ? ,'ttVfl":«=• 


T 155,110¡ORARTO 155*T,110¡PLOT 155,12 


5125 TRAP 5100 


3¡ORARTO 155+T,123¡PLOT 155,135 


5130 FOR X=~§ TO 6¡H=H4i¡YCH,l)=ICCH*A 


1355 ORARTO 155+T,135¡PLOT 155,140:0 


11AA214A31/A4 


RARTO 155*T,148¡PLOT 155,160¡ORARTO 15 


5140 ? ,X,YCH,1) 


5«T,160 


5158 NEXT X 


1360 PLOT 10,80¡ORARTO 10,50+T:PL0T 


5160 POSITION 2,4¡? A1:P05ITI0N 2,5¡? 


35,80¡ORARTO 35,00?T:PL0T 60,00:0RART0 


A2:POSITION 2,6¡? A3IP0SITI0N 2,7¡? A4 


60,88*T¡PLOT 05,80¡ORARTO 05,004T 


5170 IF YI1,1)>YC13,1) THEN YMAX1=YC1, 


136S PLOT 110,80¡0RART0 110,004T¡PL0 


11¡COTO 5190 


T 135,00¡ORARTO 135,80*T 


5180 IF YC13,1)>Y!1,1) THEN YRAX1=YC13 


1370 • PLOT 185,00¡ORARTO 105,004TlPL0 


,1)¡C8T0 5190 


T 210,80¡ORARTO 210,80*T:PL0T 235,80:0 


5105 IF YC1.1>=Y113,1) THEN YHAX1=YC1, 


RARTO 235,60*T¡PLOT 260,00 


1)¡GOTO 5190 


1375 ORARTO 260,80*T:PL0T 285,80¡ORA 


5190 POSITION 6,20:? ‘Hmmjuiii J START 


RTO 285,804T¡PLOT 310,80¡ORARTO 310,00 
♦T 
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APLICACIONES: continuación 



5195 IF PEER(53279)=6 TNEN 5285 

5196 GOTO 5195 

S200 ? “N“:P0RE 752,0 

5281 P0SITI08 8,81? *■■■ 



5282 P05ITI08 0,2:? “Ingrese los 


es de la ecuación 2 " 


G r a f; 


valor 


5283 T8AP 5289 

5284 POSITION 8,4:? "b: ";:INPIIT 81 

5285 POSITION 8,5:? "A: ";:INPUT 82 

5286 POSITION 0,6:? "8: ";:INPUT 83 

5287 POSITION 8,7:? "C: ";:INPIIT 84 

5288 GOTO 5218 

5289 GOTO 5283 

5218 POSITION 15,3:? 

5228 ? IW 

5225 TRAP 5108 

5238 FON K=-6 TO 6:N=H+1:Y1(N,1)=(((Xa 
81)«82)+83)784 
5248 ? ,X, VICN,11 

5258 NEXT X 

5268 POSITION 2,4:? 81:P8SITI0N 2,5:? 
82:POSITION 2,6:? B3:P8SITI0N 2,7:? 84 
5278 IF V1C1,1)>V1(13,1) THEN VNAX2=YC 
1,1):GOTO 5298 

5288 IF VI(13,1)>VI(1,1) TNEN VNAX2=V1 

(13.1) :GOTO 5298 

5285 IF Y1(1,1)=Y1(13,1) TNEN VNAX2=V1 

(1.1) :GOTO 5298 

5298 POKE 752,1!POSITION 6 ,28:? 'WL XB 
SBEi START 


5295 IF PEER(53279)=6 THEN 5328 
5388 GOTO 5295 

5328 IF YNAX1>YNAX2 THEN YHAX=YHAX1 
5338 IF YNAX2>YMAX1 THEN VNAX=YHAX2 
5348 IF VNAX1=YHAX2 THEN VNAX=VNAX2 
5358 GOSUB 1380:GOTO 5488 
5488 LR=85-((V(1,1)«75)/YIO:PLOT 18,LK 
JTEXT 18,LK,'Q" 

5418 L=0:F0R Z=2 TO 13lLL=Y(Z,l)*7SlLK 
=LL/YN:88AMT0 3SH,85-LR:L=L+25:NEXT Z 
5428 LR=85-((V1(1,1)«75)/VH):PL0T 18,L 
K:TEXT 18,LK,*V 

5438 L=8:F0R Z=2 TO 13íLL=Y1(Z,1)875:1 
K=U/VH: ORAMTO I5*L, 85-LR: L=L*25: NEXT 
Z 

5458 TEXT 5 8,180,' tflrefl.MJ sfART EEBK1 
BBüIMIIU ' 1 


5468 IF PEER(53279)=6 TNEN 188 
5478 GOTO 5488 


18888 GRAPHICS 8:SETCOLOR 1,8,14:SETC0 
LOR 4,3,12:P0RE 752,8 
18818 POSITION 8,8:? 


18828 POSITION 8,2:? “Ingrese lo siguí 
entes datos:" 


18838 POSITION 8,5:? "Xa: ";:INPNT XA 


10848 POSITION 8,6:? “Va: “;:INPUT VA 
18858 POSITION 8,7:? “Xb: "J.'INPUT XB 
18868 POSITION 8,8:? "Vb: “j:INPUT VB 
18878 PONE 752,1 

18888 H1=(XB-XA)A2:H2=(VB-VA)*2 

18890 H3=SRR(H1+H2) 

18188 POSITION 8,18:? “La distancia en 
tre dichos puntos es de:“ 

18118 POSITION 8,11;? H3 

18128 POSITION 6 ,28:? ' tiBRUMMI START 

18125 IF PEER(53279)=6 THEN 18138 

18126 GOTO 18125 

18138 IF VB>YA THEN VMAX=YB 

18135 IF YB<VA THEN YHAX=VA 

18148 IF YB=YA THEN VHAX=VA 

18158 GOSUB 1380:COTO 18288 

18288 PLOT 168+(25*XA),85-((YAft75)/YM) 

18218 8RAMT0 1684(25«XB),85-((VBU75)/V 

N) 

18215 TEXT 288,138,“»: “iTEXT 228,138, 
H3 

18228 TEXT 58,188,“Presione START para 
continuar" 

18238 IF PEER(53279)=6 THEN 188 
18248 GOTO 18238 * 
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Evaluación P.A.A. 


MUNDOA TARI continúa este mes con nuevas 
rutinas para ei programa de evaluación de ia Prue¬ 
ba de Aptitud Académica (P.A.A.). 


A continuación comentamos en general las 
nuevas rutinas incorporadas: 

1000-1199 Rutina de corrección de las preguntas 
de un alumno según secuencia de respuestas 
ingresadas correctas. 

Se utiliza una matriz en que se lleva la infor¬ 
mación de las preguntas de cada alumno, su¬ 
mando separadamente las correctas, incorrec¬ 
tas y en blanco'. 

3000 Rutina de ingreso de las respuestas correc¬ 
tas para revisión. 

Estas respuestas requieren de una comproba¬ 
ción para asegurar la corrección correspon¬ 
diente. 

4000 Rutina para imprimir los datos de la matriz 
utilizando la técnica del formato en un string 
para su impresión correcta en las columnas. 


18 REM PROGRAMO EVALUADOR DE P.A.A 

20 REM MUNDOATARI M23 

30 REM USO DOMINIO PUBLICO 

40 REM CONTRIBUCION A LOS COLEGIOS 

180 GOSUB 10000 

110 REM INICIALIZA VARIABLES 

128 ? CHR$(125):P0KE 752,0 

130 POSITI ON 0,9:? —EMHE 

148 POSITION 8,2:? "NUMERO ALUMNOS CUR 
SO ":INPUT NUMAL 

158 POSITION 0,4:? "NUMERO DE PREGUNTA 

S ":INPUT NUMPRE 

160 NOMBRE=20 

165 LARGO=NUMAL*NOHBRE 

170 DIH NOMBRES(NOMBRE),TOTAL*(LARGO), 

DATQSSÍNUHAL*NUHPRE),CORRECS(NUMPRE) 

180 DIM INGRESOS(20),ELEMENTOS(NUMPRE) 

,RESPS(1),LINEAS(79),BUENAS(4),MALAS(4 

), BLANCOS»), PUNTOS* (5) 

185 T0TALS(1)=" ":TOTALS(LARG0)=" ":T0 
TALS(2):T0TALS 
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PROGRAMAS 


200 REH RUTINA INGRESO DE LISTA DE ALU 
UNOS EN TOTAL* 

210 ? CHR$(125) 

220 FOR J=1 TO NUMAL 

230 ? "INGRESE EL NOMBRE ALUMNO ";J 

240 NOMBRE*:" 

258 INPUT INGRESO*:L:LEN(INGRESO*):I 

F L>20 THEN 230 

260 INC:(J-1)*20 

270 NOMBRE*(1,L):INGRES0$ 

280 TOTAL*(1*INC,20+INC):NOMBRE$ 

290 NEXT J 
300 GOSUB 3008 
500 REM 

520 FOR J:l TO NUMAL:? CNR$<125) 

530 INC:(J-l)#20 

540 INGRESO*:TOTAL*Cl+INC,28+INC) 

550 ELEMENTO*(1):" "¡ELEMENTO*(NUMPR 
E):" ELEMENTO* (2) ELEMENTO* 

560 POSITION 21,0:? INGRESO*; 

570 FOR K:1 TO NUMPRE 

575 IF PEEKC84)<21 THEN 580 

576 ? CHR*(125)¡POSITION 21,0:? IN 

CRESO*;:GOTO 580 

580 ? " RESPUESTA PREG tt ";K;" “J 

¡INPUT RE5P* 

600 IF LEN(RESP$))1 THEN 580 

610 ELEMENTOS(K,K):RESP$ 

620 NEXT K 

638 INC:(J-l)«NUMPRE 

640 DATOS*(1+INC,NUMPRE+INC):ELEMENT 

O* 

658 NEXT J 

1000 REH RUTINA DE CORRECCION 
1010 DIM M(NUMAL,7) 

1020 FOR J:0 TO NUMAL 
1030 FOR K=0 TO 7 
1040 M(J,K):0 

1050 NEXT K 
1060 NEXT J 

1100 REH PRUEBA HEXT E 

1110 FOR J=1 TO NUMAL 

1120 FOR K=1 TO NUMPRE 

1130 LUGAR:KMJ-1)#NUH>RE 

1140 IF DATOS*(LUGAR,LUGAR):CORREC 

*(K,K) THEN M(J,1):M(J,1)+1:60T0 1170 

1150 IF DATOS*(LUGAR,LUGAR):" “ TH 

EN M(J,3)=M(J,3)+1:G0T0 1170 

1160 M(J,2)=M(J,2)+1 

1170 NEXT K 

1188 M(J,4):M(J,l)-M(J,2)/4 

1198 H(J,5):8,6*M(J,4) 

1288 H(J,7):M(J,5)+306 


1210 NEXT J 
1999 END 

3000 REH INGRESO DE PREGUNTAS CORRECTA 

S 

3010 ? CHR$(125) 

3020 FOR J:l TO NUMPRE 

3038 ? "INGRESE LA RESPUESTA CORRECT 

A PARA tt ";J 

3040 INPUT RESP*:L:LEN(RESPS)¡IF L>1 
THEN 3030 

3050 CORREC*(J,J):RE5P* 

3060 NEXT J 
3100 REM VERIFICA 
3118 ? CHR*(125) 

3120 FOR j:l TO NUMPRE 

3130 ? "RESPUESTA ";Jj" ES ";CORR 

EC$(J,J); 

3140 INPUT RESP* 

3150 NEXT J 
3200 REH 
3210 ? CHR*(125) 

3220 ? "EL INGRESO DE RESPUESTAS ES CO 
RRECTO S/N" 

3240 IF RE5P*:"N" THEN 3800 
3380 RETURN 

4000 REM SALIDA APANTALLA 
4810 FOR J:l TO NUMAL 
4020 INC:(J-l)#28 

4030 PRINT TOTAL$(1?INC,20?INC);" " 

9 

4040 FOR K:l TO 3 

4050 ? M(J,K);" "J 

4860 NEXT K 
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PROGRAMAS: continuación 


4088 POKE 85,0 
4090 NEXT J 
4099 END 

5008 REM RUTINA IMPRE5I0N 
5010 LPRINT " COLEGIO MARIA INMACULADA 
<1 

5028 LPRIMT " REPTO DE MATEMATICAS 198 
9" 

5025 LPRIMT 
5030 ? CHR$(125) 

5040 ? " INGRESE NUMERO DEL EJERCICIO 
"tINPUT N 

5050 ? " INGRESE FECHA DEL EJERCICIO " 
:INPUT NOMBRES 

5060 LPRINT *' EJERCICIO ti ";N 
5070 LPRINT " FECHA NOMBRES 
5875 LPRINT 

5098 LPRINT "| NOMiRE ALUMNO I 

CORRECTAS | INCORRECTAS| BLANCO 
| PUNTOS I" 

5108 FOR J=1 TO NUMAL 


5118 

1 

LINEA$="| 

1 1 

1 

5120 

1 " 

INC=(J-i)#28 

5138 

NOMBRES-TOTALS(1+IMC,20+IMC) 

5140 

UHEA$(2,22)~MDHBRE$ 

5158 

BUENA=H(J,1) 

5160 

BUENA$=5TR$(BUENA) 

5178 

L=LEN(BUENAS) 


5180 LINEAS(35-L,34)=BUENA$ 

5185 MALA=M(J,2) 

5190 MALA$=STRS(MALA) 

5200 L=LEN(MALAS) 

5218 LINEAS(48-L,47)=MALA$ 
5228 BLANC0=M(J,3) 

5230 BLANCOS=STR$(BLANCO) 

5240 L=LEN(BLANCOS) 

5250 LINEAS(62-L,61)=BLANCOS 

5268 PUMT05=M(J,7) 

5270 PUNT05$=5TRS(PUNTOS) 
5288 L=LEN(PUNTOSS) 

5290 LINEAS(76-L,75)=PUNTOSS 

5300 LPRINT LINEAS 
5310 NEXT J 
5499 END 

10000 REM PRESENTACION 
18018 ? CHRS(125).POK E 752,1 
10020 POSITION 8,0:? "■■■■ 
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10030 P05ITI0M 0,10:? "■■■■HII23IHD 


PUBLICO PftRft COLEGIOS 


10040 POSITION 10,12!? "EVALUACION P.A 
.A" 

10050 POSITION 0,21:? "Presione una te 
cía para continuar "; 

10068 CLOSE HISOPEN »1,4,0,"K:" 

18070 GET ttl,A:CLOSE ttl 
10090 RETURM 

31000 REM VERIFICA • 



DESAFIO: 


PARA TODOS NUESTROS AMIGOS LECTORES... 

Seguramente nuestros amigos profesores o programadores en etapa de 
desarrollo han sentido un vacío al leer los detalles del desafio planteado 
a los aficionados a los juegos. 

Sin embargo MUNDOATARI quiere motivar y proponer actividades a 
todos y cada uno de los lectores de nuestra revista, razón por la cual 
se presenta en esta columna un desafío con los mismos premios de la 
columna Juego del Mes. 

Las condiciones consisten en finalizar y completar este programa de 
Evaluación de la Prueba de Aptitud Académica. 

Los requisitos son los siguientes: 

- Completar la programación para almacenar en diskette y casete los 
archivos de listas de alumnos. 

- Almacenar en archivos la información presente en las matrices. 

- Completar el programa para un ejercicio total de P.A.A. en la parte 
verbal y matemática. 

- Realizar estudios estadísticos para análisis de cursos futuros. 

- Ordenar las listas a impresora de acuerdo a orden de puntaje. 


ESPERAMOS SU PARTICIPACION. 



36 


MUNDOATARI 










RENUEVESE A BAJO PRECIO 
...Y CON CREDITO 



















PEDIDO 


Deseo adquirir una Unidad de Disco ATARI 1050: 


Nombre: 


Dirección 
Casilla _ 


_ Ciudad 


Teléfono 


.Medio de transporte 


Enviar los cheques nominativos y cruzados a nombre de Lucfa Segura Gusi a la dirección: 
MUNDO ATARI, casilla 16005, Providencia, Santiago 


PAGO AL CONTADO: 

cheque No._Por 49.990 de 


Banco 


EN 3 CUOTAS: 

cheque No._— por $ 20.000 de 

cheque No. .-- P° r $ 16.495 de 

cheque No. --por $16.495 de 


Banco 

Banco 

Banco 


RESERVA 


Deseo reservar una Unidad de Disco ATARI 1050: 

Nombre --- 

Dirección------ 

Casilla ----Teléfono --- 

Fecha estimada de compra -—- 

Cheque No___P or $ 4 000 de - 


Ciudad 


Banco 


38 


MUNDOATARI 



































PROGRAMAS 


Desert Falcon 


ATARI Corp. 

US$ 24.95 

Este es otro juego del tipo matar 
o ser muerto, en la conquista por 
nuevos puntos. 

¿Será este juego la proyec¬ 
ción del antiguo ZAXXON con 
un cambio de escenarios?. 

Es similar, pero'existe una se¬ 
rie de innovaciones. El escenario 
son las tumbas Pharaon en el 
antiguo Egipto. 

Al iniciar el juego puedes se¬ 
leccionar 4 niveles de dificultad 
y 1 ó 2 jugadores. El objetivo del 
juego es coleccionar la mayor 
cantidad posible de tesoros. 

Las capacidades gráficas son 
buenas al igual que el sonido. Es 
un buen sustituto del popular 
ZAXXON. 



Cosmi 



Richard Petty's Talladega 
US$ 12.95 

Este nuevo juego de carrera de 
autos es sorprendente para el 
manejo de aquellos fanáticos por 
los autos. 

El juego es más que una simu¬ 
lación, pues al iniciarse debes 
calificar tu posición en la pista 
entre 20 competidores. 

Nuevo juego para fanáticos. 
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PROGRAMAS: continuación 


Gauntlet 


MINDSCAPE 
US$ 34.95 

Este excelente juego de Mind- 
scape demuestra que el compu¬ 
tador ATARI, por sus caracte¬ 
rísticas gráficas siempre tendrá 
gran vigencia en nuestro mer¬ 
cado. 

El juego es para uno o dos 
jugadores que pueden competir 
o cooperar.yEI segundo jugador 
puede iniciarse cuando lo desee, 
no importa lo avanzado del 
mismo. 

Al iniciarse el juego cada par¬ 
ticipante selecciona un carácter 
que lo identifica. 

Los personajes Merlin y Thor 
adquieren una magnífica repre¬ 
sentación y una serie de figuras 
forman la trama del juego que 
les permitirá disfrutarlo plena¬ 
mente. 



itm 



Concurso: 

DESCRIPCION 
NUEVOS JUEGOS 

MUNDO A TA Rl acepta colaboraciones de descripción de nuevos 
juegos vigentes en el comercio y que no hayan sido publicados por 
nuestra revista. 

Describa en un máximo de 30 líneas el juego y envíe además una 
copia del mismo en casete o diskette y podrá optar a un premio de 
$ 3.000 en software de nuestro Catálogo. 

Envíe también una fotografía suya y antecedentes personales: nom¬ 
bre, edad, actividad, dirección, nivel de programación, intereses, etc. 
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MUNDOATARI pone un PC 
al alcance de sus dedos: 

CARACTERISTICAS: 

• Procesador 640K en memoria. 

• Turbo para velocidad de ejecución 
de 4,7 y 12 MHZ. 

• Fuente de poder 150 Watts. 

• Tarjeta múltiple de conección a 
unidad de disco. 

• Tarjeta gráfica Multi Display. 

• Diskettera de 51/4 y 360 kilos. 

• Teclado español de 101 teclas. 

• Monitor Ambar Goldstar. 


PC-XT 




Por US$ 1.050 (IVA incluido) 

y si su solicitud de crédito 
es aceptada, el PC-XT es suyo. 
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Los Leones 308 - Santiago 

ATAR! al CENTRO de PROVIDENCIA 
















MUNDOATARI 
en 8 páginas 
a todo color 
describe los nuevos 
videojuegos 
vigentes 
en el mercado. 
Además: 

- Concursos 

- Sorteos 

- Campeonatos 

en una nueva sección 
diseñada para 
fanáticos de juegos 


VIDEO 

JUEGOS 







